VBA 新手。嘗試自動化一些電子郵件的作業。
需要在生成的 Outlook 電子郵件的末尾添加我的簽名。我將我的 ( .HTMLBody = msg) 改為 ( .HTMLBody = msg & .HTMLBody)。這讓我的簽名顯示，但我的 msg 文本消失了。當我.HTMLBody在最后洗掉并使用我的原始代碼時，我的文本顯示格式正確但沒有簽名。
Sub Email()
Dim OutApp As Object
Dim OutMail As Object
Dim Path As String
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
msg = "<p>Hello World,</p><br>"
On Error Resume Next
With OutMail
.Display
.To = ""
.CC = ""
.BCC = ""
.Subject = "Fruits Stock " & Path
.HTMLBody = msg & "Hello World" & .HTMLBody
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
這里的任何幫助都會很棒。
uj5u.com熱心網友回復：
你有沒有用谷歌搜索過MailItem.HTMLBody？
它在這里顯示了一個例子：
Sub CreateHTMLMail()
'Creates a new email item and modifies its properties.
Dim objMail As Outlook.MailItem
'Create email item
Set objMail = Application.CreateItem(olMailItem)
With objMail
'Set body format to HTML
.BodyFormat = olFormatHTML
.HTMLBody = _
"<HTML><BODY>Enter the message text here. </BODY></HTML>"
.Display
End With
End Sub
如果您希望您的電子郵件采用 HTMl 格式，則需要設定一個標志：
.BodyFormat = olFormatHTML
查找MailItem.BodyFormat屬性。
uj5u.com熱心網友回復：
在創建用于發送具有特定簽名的電子郵件的回圈時，我遇到了類似的問題 - 在我的情況下，我必須從幾個簽名中選擇一個，因為每封電子郵件可能會有所不同。
我將簽名名稱作為字串變數傳遞給Signame一個單獨的函式，用于將簽名添加到電子郵件中。
'Code trimmed down a lot to just relevant bits
Sub Email()
'Create email here
Dim Email as outlook.mailitem, OutApp as Object
Set OutApp = CreateObject("Outlook.Application")
Set Email = OutApp.Createitem(olMailItem)
'Email Content:
Email.Htmlbody = "<p>Hello World</p>" & AddSig("My_Signature")
Email.display
End Sub
Function AddSig(Signame as string)
If Len(Signame) > 0 Then
Dim fso As Object, ts As Object
Set fso = CreateObject("Scripting.FileSystemObject"): Set ts = fso.GetFile(Environ("Appdata") & "\Microsoft\Signatures\" & Signame & ".htm").OpenAsTextStream(1, -2)
Signame = Replace(Signame, " ", " ")
AddSig = "<br>" & Replace(ts.ReadAll, _
Signame & "_files", _
Replace(Environ("Appdata"), " ", " ") & "\Microsoft\Signatures\" & Signame & "_files")
End If
End Function
所以只需在我放置“My_Signature”的地方替換您的簽名名稱。然而，這不適用于名稱中帶有空格的簽名，盡管我努力了replace(Signame, " ", " ")- 這與 HTML 有關。我只是重命名了我的簽名以洗掉所有空格，但是如果有人看到這個并嘗試除錯并成功除錯，我個人將非常感激！
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/358954.html