将Excel链接到电子邮件。发送批量电子邮件

问题描述：

我试图发送批量电子邮件（我认为Excel将是一个很好的选择）。基本上试图将Excel文件连接到电子邮件地址并自动填入3或4个空格。例如：你好[插入单元格A1]等等等等[插入单元格B1]。将Excel链接到电子邮件。发送批量电子邮件

只是想知道从哪里开始。（我的理解，这将需要一些VBA）

退房罗恩德布鲁因的博客：http://www.rondebruin.nl/win/s1/outlook/mail.htm –

为什么不使用微软Word的邮件合并？如果您之前没有使用过VBA，这将比您更容易学习。此外，VBA并不像使用VBA那样需要编辑字段（至少不是与单词中的邮件合并相比）发送电子邮件一样容易。 –

https://www.extendoffice.com/documents/excel/3560-excel-send-personalized-email.html 此链接概述了我使用的VBA代码。出于某种原因，当我运行它时，它只是打开网页浏览器，而不是通过我的Outlook发送邮件。我认为这是因为它与我的前景无关？ –

答

这里有一个基本的模板，你可以使用：

Option Explicit 

Dim IE As Object 

Sub Send_Email() 
    Dim eSubject, eTo, eBody As String 
    Dim Mail_Object, Mail_Single As Variant 
    eSubject = "Example of how to send email using VBA" 
    eTo = "[email protected]" 

    Dim sht As Worksheet 
    Set sht = Sheets("Sheet1") 
    With sht: 
    eBody = "Hello " & .Cells(1, "A").value & " blah blah blah " & .Cells(1, "B").value 
    End With 

    On Error GoTo debugHere 
    Set Mail_Object = CreateObject("Outlook.Application") 
    Set Mail_Single = Mail_Object.CreateItem(0) 
    With Mail_Single 
    .Subject = eSubject 
    .To = eTo 
    .body = eBody 
    .send 
    End With 

debugHere: 
    If Err.Description <> "" Then MsgBox Err.Description 
End Sub

要使用这个模板你要做的是将一个周边启动码循环发送多封电子邮件设置Mail_Object并以语句结束。

谢谢你，我在https://www.extendoffice.com/documents/excel/3560-excel-send-personalized-email.html中使用模板我想知道VBA代码本身是否与我的outlook连接？因为它只是打开网页浏览器。 –

它通过展望 - 至少它被配置为在我的机器上做到这一点。不知道这将如何与Outlook以外的邮件客户端兼容。 – Amorpheuses

答

我认为你正在寻找这样的东西。

http://www.rondebruin.nl/win/s1/outlook/amail6.htm

将Excel链接到电子邮件。发送批量电子邮件

相关推荐