我正在尝试使用 Excel VBA 创建一封有关澳大利亚儿童癌症研究所的电子邮件,并带有背景图像 (CCIALittleGirl.jpg)。
然后,我希望在其上方有一个文本或文本框,最好是带有白色粗体文本,我可以在运行时填充这些文本。
我可以在电子邮件中添加图像(注释掉的 MyHTML 部分可以做到这一点),但我似乎无法加载背景图像,我正在修改我在网上找到的代码,但我的 HTML 技能几乎为零。
我很确定这部分是我的问题:
<div style=""background-image: ""cid:CCIALittleGirl.jpg""
这是我到目前为止的代码,MyHTML 部分没有达到我的预期。
Private Sub EmailCopy()
Dim oApp, oMail As Object, MyHTML As String
Application.ScreenUpdating = False
On Error Resume Next
Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItem(0)
'MyHTML = "<p>TempText</p>"
'MyHTML = MyHTML & "<img src=""cid:CCIALogo.jpg"">"
MyHTML = "<div style=""background-image: ""cid:CCIALittleGirl.jpg"""; height: 390px; width: 900px; color: rgb(0, 0, 0); margin-top: 0px; padding-left: 35px; padding-top: 25px;"">"
MyHTML = MyHTML & "my text appears here and on top of the image"
MyHTML = MyHTML & "</div>"
With oMail
.To = "[email protected] /cdn-cgi/l/email-protection"
.Subject = "TEST"
.Attachments.Add "C:\Images\CCIA\CCIALogo.jpg"
.Attachments.Add "C:\Images\CCIA\CCIALittleGirl.jpg"
.HTMLBody = MyHTML
.Display
.Save
.Close False
End With
Application.ScreenUpdating = True
Set oMail = Nothing
Set oApp = Nothing
End Sub
谢谢你尽你所能的帮助。
解决了:
MyHTML = "<body background=""cid:CCIALittleGirl.jpg"""
这成功地将图像作为背景。
为了完整起见(如果其他人有同样的问题),这里是完整的解决方案:
Private Sub EmailCopy()
Dim oApp, oMail As Object, MyHTML As String, WB As Workbook, FileName As String, BodyText As String, MyText As String
Application.ScreenUpdating = False
FileName = ArchiveFolder & ArchiveFileName
On Error Resume Next
Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItem(0)
MyText = "Please find attached the CCIA report for " & Format(Now, "DD/MM/YYYY") & "<br><br><br><br><br><br><br><br><br><br>" & _
"Congratulations to " & StrConv(Sheets("Summary").Range("A2").Text, vbProperCase) & "<br>" & _
"For an amount of: " & Replace(Sheets("Summary").Range("C2").Text, " ", "") & "<br>" & _
"Across " & Trim(Sheets("Summary").Range("B2").Text) & " donations."
MyHTML = "<body background=""cid:CCIALittleGirl.jpg""; center top no-repeat;"
MyHTML = MyHTML & vbCrLf & "<p style=""font-size:30px;font-weight:Bold;color:rgb(100%,100%,100%)"">" & MyText & "</p>"
MyHTML = MyHTML & vbCrLf & "<br><br><br><br><img src=""cid:CCIALogo.jpg"">"
With oMail
.to = "[email protected] /cdn-cgi/l/email-protection"
.Subject = "CCIA report @ " & Format(Now, "DD/MM/YYYY")
.Attachments.Add "C:\Images\CCIA\CCIALogo.jpg"
.Attachments.Add "C:\Images\CCIA\CCIALittleGirl.jpg"
.Attachments.Add FileName & ".xlsx"
.HTMLBody = MyHTML
.Display
.Save
.Close False
End With
Application.ScreenUpdating = True
Set oMail = Nothing
Set oApp = Nothing
End Sub
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)