请教高人邮件发送问题.谢谢!

青岛俊哥

各位好:

      由于工作需要追讨190多个邮件地址发送邮件给我,每次都收不齐,需要电话再沟通,或者有的发给我的邮件有问题.现需要一个EXCEL表格汇总后能一下分别将EXCEL中的b1单元格中的文字发送到a1单元格的地址---感谢分享!!

                     A                                     B

1    A@yahoo.com.cn                    报表未收到

berci

Word中的邮件合并可以实现

青岛俊哥

啊?!有没有人能帮我写个EXCEL,建个按钮,一按就全发出去了...我是个WORD盲....

青岛俊哥

还请高人帮帮忙啊!感谢!重谢!!

rmb_518

QUOTE:

以下是引用青岛俊哥在2008-10-10 18:14:00的发言：

还请高人帮帮忙啊!感谢!重谢!!

怎么重谢?俺想知道的.

我给一公司做了一个发货系统,把每个客户的发货单以正方和附件的形式发给每个客户,点一下按键就可以解决全部问题,不用等待,也不用一个一个点发送按键,不信的话,你可以留下地址,我可以在一分钟内发给你100封邮件,我做的系统不用你改动,只需加上邮箱地址即可,客服QQ471139874

青岛俊哥

自己写了个，但是只能发送第一行的，而且内容是放在”主题”中

请高手帮忙给修改一下,自动向下循环,内容放在邮件正文中.谢谢!

 

  

   ' Select the range of cells on the active worksheet.

   ActiveSheet.Range("A1:D2").Select

  

   ' Show the envelope on the ActiveWorkbook.

 For I = 4 To 4

   ActiveWorkbook.EnvelopeVisible = True

  

   ' Set the optional introduction field thats adds

   ' some header text to the email body. It also sets

   ' the To and Subject lines. Finally the message

   ' is sent.

   With ActiveSheet.MailEnvelope

        Set myAttachments = .Item.Attachments

        While myAttachments.Count > 0

               myAttachments.Remove 1

        Wend

      .Introduction = "请餐厅尽快查找差异原因并及时回复.如有问题请与王俊联系! "

     

      .Item.To = Range("G" & I).Value

      .Item.CC = Range("H" & I).Value

     

     

      .Item.Subject = "餐厅差异追踪"

      .Item.Send

   End With

 Next

End Sub

aaaaabbbbb

用WORD的邮件合并吧。OFFICE自带的功能可以实现，就不建议VBA编程。

Long_III

太多这样的例子啊，自己搜索一下，看你写的代码不错，应该可以
思路可以如下，

在工作表里循环
for i = 1 to 200
    Set objOL = CreateObject("Outlook.Application")
    Set itmNewMail = objOL.CreateItem(olMailItem)

    With itmNewMail
        .Subject = “追债"
        .Body = cells(i,2)
        .To = cells(i,1)

'send '自己搜索发送示例或搜索我写的Redemption方法
    End With
next