[英]How to send a Word document as body of an email with VBA
I've created a macro that works with outlook and excel that will use a list of email addresses (in excel) and send all those addresses an email (in outlook). 我创建了一个与outlook和excel一起使用的宏,它将使用电子邮件地址列表(在excel中)并将所有这些地址发送给电子邮件(在outlook中)。 I want to take a word document (from microsoft word) and use it as the body of the email.
我想拿一个word文档(来自microsoft word)并将其用作电子邮件的正文。 The problem is, I will have images in the word document and I need the word document to keep it's formatting.
问题是,我将在word文档中有图像,我需要word文档来保持它的格式。 Right now, my VBA takes the content of my word document but the formatting is gone and images aren't included.
现在,我的VBA获取了我的word文档的内容,但格式化已经消失,图像不包括在内。 This is my code:
这是我的代码:
Sub spamEmail()
'Setting up the Excel variables.
Dim olApp As Object
Dim oMail As Outlook.MailItem
Dim iCounter As Integer
Dim Dest As Variant
Dim SDest As String
Dim Excel As Object
Dim Name As String
Dim Word As Object
Dim oAccount As Outlook.Account
Dim doc As Word.Document
Dim itm As Object
Dim MsgTxt As String
'Set the outlook account to send.
Set oAccount = Application.Session.Accounts.Item(2)
'Create excel object.
Set Excel = CreateObject("excel.application")
Excel.Visible = True
Excel.Workbooks.Open ("C:\Users\Deryl Lam\Documents\Book1.xlsx")
Excel.Workbooks("Book1.xlsx").Activate
'Create a word object.
Set Word = CreateObject("word.application")
Set doc = Word.Documents.Open _
(FileName:="C:\Users\Deryl Lam\Documents\emailBody.docx", ReadOnly:=True)
'Pulls text from file for message body
MsgTxt = doc.Range(Start:=doc.Paragraphs(1).Range.Start, _
End:=doc.Paragraphs(doc.Paragraphs.Count).Range.End)
'Loop through the excel worksheet.
For iCounter = 1 To WorksheetFunction.CountA(Workbooks("Book1.xlsx").Sheets(1).Columns(1))
'Create an email for each entry in the worksheet.
Set oMail = Application.CreateItem(olMailItem)
With oMail
SDest = Cells(iCounter, 1).Value
If SDest = "" Then
'Dont do anything if the entry is blank.
Else
'Do additional formatting on the BCC and Subject lines, add the body text from the spreadsheet, and send.
Name = Cells(iCounter, 2).Value
.BCC = SDest
.Subject = "FYI"
.Body = "Dear " & Name & "," & vbCrLf & MsgTxt
'SendUsingAccount is new in Office 2007
'Change Item(1)to the account number that you want to use
.SendUsingAccount = oAccount
.Send
End If
End With
Next iCounter
'Clean up the Outlook application.
Set olMailItm = Nothing
Set olApp = Nothing
End Sub
I've searched all over google for a solution but I haven't found one. 我在谷歌搜索了一个解决方案,但我还没找到。 How can I send a word document as the body of the email with it's formatting in tact and the images included?
我如何发送word文档作为电子邮件的正文,其中包含格式和图像?
You are getting the contents of your template document as a string, which by definition will not contain any formatting or images. 您将模板文档的内容作为字符串获取,根据定义,它不包含任何格式或图像。 You should instead copy the contents to the clipboard and then paste them into the new email.
您应该将内容复制到剪贴板,然后将其粘贴到新电子邮件中。
Something like this: 像这样的东西:
Sub emailFromDoc()
Dim wd As Object, editor As Object
Dim doc As Object
Dim oMail As MailItem
Set wd = CreateObject("Word.Application")
Set doc = wd.documents.Open(...path to your doc...)
doc.Content.Copy
doc.Close
set wd = Nothing
Set oMail = Application.CreateItem(olMailItem)
With oMail
.BodyFormat = olFormatRichText
Set editor = .GetInspector.WordEditor
editor.Content.Paste
.Display
End With
End Sub
If not for the images, you could save the document as an HTML file, read its contents, then set the MailItem.HTMLBody property. 如果不是图像,则可以将文档另存为HTML文件,读取其内容,然后设置MailItem.HTMLBody属性。
Images are more involved. 图像更复杂。 I don't see a straightforward way to bring them into a message body.
我没有看到将它们带入消息体的简单方法。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.