Question

我将保存的文档作为电子邮件（不是附件）多次发送到Excel中的电子邮件地址列表。

我的Excel表格具有以下格式：

+--------------------------------------------------------+----------------+-------------------------------------+---------------------------------------+----------------+----------------------------+
|                         Emails                         |      CC1       | CC2 - Primary Electronic Sales - US | CC3 - Primary Electronic Trading - US | Additional CC? | Concatenation of all CC's  |
+--------------------------------------------------------+----------------+-------------------------------------+---------------------------------------+----------------+----------------------------+
| email@domain.com; email2@domain.com; email3@domain.com | Outlook Name 1 | Outlook name 2                      | Outlook name 3                        | Outlook name 4 | Concatenation of all CC's  |  
+--------------------------------------------------------+----------------+-------------------------------------+---------------------------------------+----------------+----------------------------+

目标是加载文档＆＃34; H：\ Thought Pieces \ Small Cap Names.doc＆＃34;并将文件作为电子邮件（不是附件）发送到＆＃34;电子邮件＆＃34;中的每个条目。专栏以及所有CC＆＃34;的连接。列。

邮件仅发送到第一行，正确地通过电子邮件发送第二列中的列表，第一行和第一行中最后一列中的列表。

然后挂起，然后说＆＃34;方法＆＃39;主题＆＃39;对象＆＃39; _MailItem＆＃39;失败。

Sub SendOutlookMessages()

 'Dimension variables.
 Dim OL As Object, MailSendItem As Object
 Dim W As Object
 Dim MsgTxt As String, SendFile As String
 Dim ToRangeCounter As Variant

 Set wd = CreateObject("Word.Application")
 Dim doc As Word.Document

 'Assigns Word file to send
 Set wd = GetObject(, "Word.Application")
 If wd Is Nothing Then
 Set wd = CreateObject("Word.Application")
 blnWeOpenedWord = True
 End If
 Set doc = wd.Documents.Open _
 (Filename:="H:\Thought Pieces\Small Cap Names.doc", ReadOnly:=True)
 Set itm = doc.MailEnvelope.Item

 'Starts Outlook session
 Set OL = CreateObject("Outlook.Application")
 Set MailSendItem = doc.MailEnvelope.Item

 ToRangeCounter = 0

 'Identifies number of recipients for To list.
 For Each xCell In ActiveSheet.Range(Range("tolist"), _
     Range("tolist").End(xlToRight))
     ToRangeCounter = ToRangeCounter + 1
 Next xCell

 If ToRangeCounter = 256 Then ToRangeCounter = 1

 'Creates message
 For Each xRecipient In Range("tolist")
    With MailSendItem
     .Subject = ActiveSheet.Range("subjectcell").Text
     .Body = MsgTxt
     .To = xRecipient
     .Cc = xRecipient.Offset(0, 6)
     .Send
    End With
 Next xRecipient

 'Ends Outlook session
 Set OL = Nothing

End Sub

Answer 1

所以...在经过一系列试验之后，我确实想出了自己的问题。

我添加了第二个＆＃34; Set MailSendItem = doc.MailEnvelope.Item＆＃34; 在循环中，因为显然该项目消失了一次.Send传递。

我希望将来可以帮助某人。

将Word文档作为电子邮件发送到Excel中的地址列表

1 个答案: