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

canciaw

你好wtb815朋友，我今天会再测试一下，不过还要找找有否代码可以免去Outlook的安全确认。
搞好之后，我会将代码粘贴出来同大家分享！

canciaw

谢谢zhqang的解释！！！

canciaw

测试自动发送邮件成功，谢谢mineshine老师！！！   要找找不用outlook安全确认的代码。

将代码同大家分享一下

Sub AutoMail()
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("V" & i).Value)
    MailItem.Subject = "This is auto Email From Kuehne & Nagel Ltd Guangzhou Office"
    MailItem.Body = "致尊敬的经销商:" & vbNewLine & _
    "Dear Dealer:" & vbNewLine & _
    "                              " & vbNewLine & _
    "                              " & vbNewLine & _
    "xxxxxxxxxxxxx广州分公司，由xxxxxxxxx广州配送中心" & vbNewLine & _
    "委托，承运订单号为 (" & Sheets("CFD").Range("A" & i).Value & ")的零部件至(" & Sheets("CFD").Range("G" & i).Value & ")。" & vbNewLine & _
    "如需查询该票货物的运输状态，请浏览德迅公司的网页http://www.kn-portal.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 & _
    "xxxxxxxxx广州分公司" & vbNewLine & _
    "xxxxxxxxx Limited Guangzhou Branch Office"
    MailItem.Send
    Set OutlookApp = Nothing
    Set MailItem = Nothing
    Set Recipient = Nothing
Next i
End Sub

yzxiongvip

又是英文版的，没看懂，遗憾！

yzxiongvip

最好能有个使用说明，因为（运行时错误‘287’：应用程序定义或对象定义错误），谢谢！

[ 本帖最后由 yzxiongvip 于 2009-2-12 11:35 编辑 ]

mineshine

感谢canciaw  

yzxiongvip可以参考下面网页，很多说明和范例
http://www.rondebruin.nl/mail/add-in.htm

wtb815

今天终于看到能从邮件发送工资条的好消息，相信不少人为之兴奋，可是本人对VBA不熟悉，斗胆向mineshine老师要一个样例来看看，不知mineshine老师能提供帮助吗。谢谢！

canciaw

没有问题,我整理一下就发上来同大家分享!

wtb815

楼主canciaw 朋友，不知您的工资条和邮件地址是怎样一个格式（既每个人的邮件地址放在哪个单元格，按扭在哪设，如何发送），能否告诉我们，不介意的话用EXCEL附件连同代码（去掉您必需保密信息）打包贴一个在上面，让大家细细的学习学习，不知行不？谢谢！！！

canciaw

我这个不是工资条来的,不过原理应该相差不大.