Excel自动发送邮件（按条件发送）

canciaw

谢谢!!!！！！！

rmb_518

高行筛选每个客户的内容到一个新的工作表，直接发送整个工作表我想是最简单的，复制性也好，以上方法没有可移植性。

jackdong

我的是EXCEL 2003 运行后出错,
Set OutlookApp = CreateObject("Outlook.Application")
这个代码出错。

mineshine

将Microsoft Outlook设成预设收信软体，试试吧!

z-xw

VBE 工具 引用 找到excel11.0 打上勾试试看

dengwolf

Dim OutlookApp As Object
Dim MailItem As Object
Dim Recipient As Object
Dim i As Integer
For i = 2 To Sheets("CFD").[A65536].End(xlUp).Row
    Set OutlookApp = CreateObject("Outlook.Application")
    Set MailItem = OutlookApp.CreateItem(0)
    Set Recipient = MailItem.Recipients.Add(Sheets("CFD").Range("U" & i).Value)                '读入邮件地址列数据
    MailItem.Subject = "This is auto Email From 邓萌测试邮件"                                             '定义邮件的主题内容
     '邮件内容正文开始，vbNewLine是开始新的一行的常量
    MailItem.Body = "致尊敬的经销商:" & vbNewLine & _
    "Dear Dealer:" & vbNewLine & _
    "                              " & vbNewLine & _
    "                              " & vbNewLine & _
    "xxxxxxx广州分公司，由xxxxxx广州配送中心" & vbNewLine & _
    "委托，承运订单号为 (附件" & Sheets("CFD").Range("A" & i).Value & ")的零部件至（附件" & Sheets("CFD").Range("F" & i).Value & "）。" & vbNewLine & _
    "如需查询该票货物的运输状态，请浏览xxxx司的网页http://www.abc.com/。" & vbNewLine & _
    "您的查询号码为 （附件" & Sheets("CFD").Range("B" & i).Value & "）." & vbNewLine & _
    "                              " & vbNewLine & _
    "KN was authorized by Daimler Northeast Asia Parts Trading and Services Co., LTD" & vbNewLine & _
    "Guangzhou PDC to deliver automotive parts under PO   (" & Sheets("CFD").Range("A" & i).Value & ")   to" & vbNewLine & _
    "(" & Sheets("CFD").Range("F" & i).Value & ")." & vbNewLine & _
    "Regarding the transportation status of mentioned shipment, please check on " & vbNewLine & _
    "KN website http://www.kn-portal.com/. Your tracking number is  (" & Sheets("CFD").Range("B" & i).Value & ")." & vbNewLine & _
    "                              " & vbNewLine & _
    "                              " & vbNewLine & _
    "谢谢!" & vbNewLine & _
    "Thanks for your attention!" & vbNewLine & _
    "                              " & vbNewLine & _
    "                              " & vbNewLine & _
    "xxxxxxx广州分公司" & vbNewLine & _
    "xxxxxxx Guangzhou Branch Office"

    MailItem.Send
    Set OutlookApp = Nothing
    Set MailItem = Nothing
    Set Recipient = Nothing
Next i
End Sub

程序运行到此句后就出错 MailItem.Body = "致尊敬的经销商:" & vbNewLine & _

canciaw

你用我之前的表格发还是自己开新的表格使用以上的宏？

我自己的表格是什么问题都没有的。

tclnxc

原帖由 mineshine 于 2009-2-13 19:46 发表
将Microsoft Outlook设成预设收信软体，试试吧!

请问在什么地方设定?Microsoft Outlook与 Outlook express这两者是不是一样的?谢谢!

tclnxc

原帖由 z-xw 于 2009-2-13 10:47 发表
以前也遇到过这个问题
安全验证的问题，可以用下面这个
460855
不过只能用于outlook2003及以下版本
outlook2007无效

请问如何使用该程序呀?我安装后点击怎么没有任何反应呢?请指点,谢谢!

sunarcher

这段代码正是我需要的，谢谢