我在工作簿中的每個工作表上都有一段電子郵件,我希望將工作表的主體,郵件正文和簽名正文發送到電子郵件工作表上的地址。將工作簿中的不同工作表發送到不同的電子郵件+ CC與Outlook簽名
主題工作正常,但消息的正文和簽名不是。 以下是我的VBA代碼。 請,我真的需要你的幫助。 非常感謝。
Sub Mail_every_Worksheet()
Dim sh As Worksheet
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Worksheets
On Error Resume Next
If sh.Range("g1").Value Like "*@*" Then
sh.Copy
ActiveWorkbook.SaveAs sh.Name, 56
ActiveWorkbook.SendMail ActiveSheet.Range("g1").Value, _
sh.Name & " Data"
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close False
End If
Next sh
Application.ScreenUpdating = True
Application.DisplayAlert = False
End Sub
請,我真的需要你的幫助。 非常感謝。這裏
您在哪裏定義了您的電子郵件正文消息和代碼中的簽名? – Alex
嗨,亞歷克斯,我其實不知道該怎麼做。你能幫我嗎? – user3288057
嗨,下面的答案是否解決它,或者你仍然缺少件?如果是的話,他們是什麼?謝謝, – Alex