Question

我为社区组织维护一个邮件列表。最初，使用Apple Safari将一封电子邮件发送给我们邮件列表中的所有成员。随着名单的增长，我了解到本地互联网服务提供商拒绝接收我发送的邮件，因为大量地址被视为垃圾邮件。

由于我还没有学过Applescript，所以我决定修改我多年前在VBA写的电子邮件例程。此脚本从Excel（MS Office 2010 / Windows 7）启动Outlook，并为列表中的每个地址创建单独的电子邮件，而不是向每个人发送一封电子邮件。一切都工作正常，但签名不会附加。

有什么建议吗？

这是代码（“说明”表格包含电子邮件地址列表[以下命名范围“EmailList”]，主题行和电子邮件正文）

Public Sub EmailOrg()

    Dim OutApp As Object
    Dim OutMail As Object
    Dim i As Integer
    Dim shtSource As Worksheet
    Dim iRows As Integer

Set shtSource = Sheets("Instructions")

iRows = Range("EmailHead").CurrentRegion.Rows.Count

For i = 1 To iRows - 1

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

  With OutMail
       .To = Range("EmailList").Offset(i, 0).Value    'list of addresses

       .Subject = shtSource.Cells(2, 5)

       .body = shtSource.Cells(6, 5) 

      '.Display        'or use .Send
        .send
  End With

    Set OutMail = Nothing
    Set OutApp = Nothing

Next i

End Sub

所以，我希望有人可以提供帮助。我还想保留签名的格式 - 有没有办法控制来自VBA的Outlook消息中的格式？

技术

通过VBA将签名附加到MS Outlook

0 个答案: