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

canciaw

各位朋友好，现在求助一下代码如何编写？ 我已经编写了一些，但是不懂如何再写下去，需要写一个小程序
发送邮件， 邮件格式如下
邮件发送邮件地址 ：附件Sheet2(CFD)U2

=========================================================================
致尊敬的经销商:
Dear Dealer:
                              
XXXXX广州分公司，由XXXX公司广州配送中心
委托，承运订单号为 (附件Sheet2(CFD)A2) 的零部件至（附件sheet2(CFD) F2）。
如需查询该票货物的运输状态，请浏览德迅公司的网页http://www.kn-portal.com/。
您的查询号码为 （附件sheet2(CFD)B2）.
                              
KN was authorized by Daimler Northeast Asia Parts Trading and Services Co., LTD
Guangzhou PDC to deliver automotive parts under PO   (附件Sheet2(CFD)A2) to
(附件sheet2(CFD) F2).
Regarding the transportation status of mentioned shipment, please check on KN website http://www.kn-portal.com/. Your tracking number is  (附件sheet2(CFD)B2).                              
                              
谢谢!
Thanks for your attention!
                              
                              
xxxxxxx分公司
xxxxxxxxx Guangzhou Branch Office

相应的邮件发送到T3, 附上A3,B3,F3单元格的信息，如此类推。 sheet2里面有多少条信息，就发多少条。 例如有5行信息，就发5个相应邮件，如果有10行信息，就发10条相应邮件。

衷心感谢帮忙！！！

[ 本帖最后由 canciaw 于 2009-2-9 22:42 编辑 ]

mineshine

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("U" & i).Value)
    MailItem.Subject = "This is auto Email From Kuehne & Nagel Ltd Guangzhou Office"
    MailItem.Body = "致尊敬的经销商:" & vbNewLine & _
    "Dear Dealer:" & vbNewLine & _
    "                              " & vbNewLine & _
    "                              " & vbNewLine & _
    "XXXXX广州分公司，由XXXX公司广州配送中心" & vbNewLine & _
    "委托，承运订单号为 (附件" & Sheets("CFD").Range("A" & i).Value & ")的零部件至（附件" & Sheets("CFD").Range("F" & 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 & _
    "xxxxxxx分公司" & vbNewLine & _
    "Kuehne & Nagel Limited Guangzhou Branch Office"
    MailItem.Send
    Set OutlookApp = Nothing
    Set MailItem = Nothing
    Set Recipient = Nothing
Next i
End Sub

[ 本帖最后由 mineshine 于 2009-2-10 12:43 编辑 ]

canciaw

你好,mineshine,一万分感谢你的无私帮忙！！！！！！！！！！

我尝试一下能否成功！！！谢谢！！！！

canciaw

您好,mineshine,我的邮件发送到第28封的时候，就会停止，告诉我执行有问题。

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("U" & i).Value)
    MailItem.Subject = "This is auto Email From Kuehne & Nagel Ltd Guangzhou Office"
    MailItem.Body = "致尊敬的经销商:" & vbNewLine & _
    "Dear Dealer:" & vbNewLine & _
    "                              " & vbNewLine & _
    "                              " & vbNewLine & _
    "德迅货运代理有限公司广州分公司，由戴姆勒东北亚零部件服务公司广州配送中心" & vbNewLine & _
    "委托，承运订单号为 (附件" & Sheets("CFD").Range("A" & i).Value & ")的零部件至（附件" & Sheets("CFD").Range("F" & 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 & _
    "德迅货运代理有限公司广州分公司" & vbNewLine & _
    "Kuehne & Nagel Limited Guangzhou Branch Office"    在这一行出现黄色箭头，但是前28封是没有问题的。不知道为什么呢？ 谢谢
    MailItem.Send
    Set OutlookApp = Nothing
    Set MailItem = Nothing
    Set Recipient = Nothing
Next i
End Sub

还有，以上您加进去的代码是什么意思呢？能否解释一下？不好意思。。。好想学习。。。

canciaw

主要是这句变量命令不明白.

For i = 2 To Sheets("CFD").[A65536].End(xlUp).Row

wtb815

请高手快出个招吧，肯定有不少的人需要这样的小程序。

[ 本帖最后由 wtb815 于 2009-2-10 19:18 编辑 ]

mineshine

问题一：
因在Sheets("tracking report")里的数据只到第29列，从第30列开始没有数据，
但在Sheets("CFD")里，你的数据资料却到40列，而 F栏 你使用涵数VLOOKUP取值，
在Sheets("tracking report")里没有数据的情况下，F栏 涵数就会判断出错，
以至于程序运行到第29行开就报错。
解决方法：
Sheets("CFD")里的列数要对应到Sheets("tracking report")里有数据的列数，
没有对应到的删除。

问题二：
For i = 2 To Sheets("CFD").[A65536].End(xlUp).Row ......Next i
循环，从Sheets("CFD")的第2列开始发Mail，
一直到 Sheets("CFD").[A65536].End(xlUp).Row 有数据的最后一列。

[ 本帖最后由 mineshine 于 2009-2-11 09:09 编辑 ]

canciaw

mineshine兄，实在感谢你详尽的解释，谢谢，谢谢！！！

wtb815

敬请canciaw学友说明一下邮件发的怎样？有否成功？如果成功能否把代码内容全部复制出来让更多的人分享。谢谢！

zhqang

For i = 2 To Sheets("CFD").[A65536].End(xlUp).Row
这句代码的含义是循环语句从第2行到工作表CFD的A列从下往上第一个不为空的单元格的行