巧用EXCEL发邮件
    前一段时间由于需要给几百个用户发送初始化用户名和密码的邮件，每人的用户名和密码都不相同，不能通过发邮件的方式。对于研发人员来说，写一个邮件发送工具并不是很困难，但是也需要一定的时间。
    下面是我参照网上经验实际试过，效果不错，利用VBA简单编程，excel配合outlook批量发送邮件，比较灵活，大家可以看看。
第一步：邮箱设置
ios7固件    配置好Microsoft outlook邮件客户端，确保能正常收发邮件，具体的本文不再详述；
第二步：建立Excel文档
1、为保证后面的“邮件发”宏代码正确运行，需要执行“工具→宏→Visual Basic编辑器”，将“工具→引用→Microseft Outlook*.0 Object Library（其中*为Microseft Outlook的版本号）选上”。
2、建立含不同邮件地址、主题、内容及附件的Excel文档，其中附件用插入超链接的方法完成。
不错的电影
第三步：编辑“邮件发”宏
白底
执行“工具→宏→Visual Basic编辑器”，单击“插入→模块”插入一个模块，在“工程”学习厨艺窗口中双击插入的模块，打开它的代码窗口，并在输入以下代码后关闭代码窗口。
代码示例
Sub sendmail()
      '要能正确发送并需要对Microseft　Outlook进行有效配置
      On Error Resume Next
      Dim rowCount, endRowNo
      Dim objOutlook As New Outlook.Application
      Dim objMail As MailItem
   
    '取得当前工作表与Cells(1,1)相连的数据区行数
    endRowNo = Cells(1, 1).CurrentRegion.Rows.Count
 
    '创建 objOutlook为Outlook应用程序对象
    Set objOutlook = New Outlook.Application
沉香如屑男主是余墨还是唐周
 
    '开始循环发送，比如从第二行开始，第一行是标题
      For rowCount = 2 To endRowNo
   
        '创建objMail为一个邮件对象
        Set objMail = objOutlook.CreateItem(olMailItem)
        With objMail
           
  '设置收件人地址（比如从  Excel　表的第一列“E-mail地址”字段中获得）
  .To = Cells(rowCount, 1).Value      '"fantasia@sina"
               
  '设置邮件主题（比如从　Excel　表的第二列“邮件主题”字段中获得）
  .Subject = Cells(rowCount, 2).Value      '"邮件主题"
               
  '设置邮件内容（比如从　Excel　表的第三列“邮件内容”字段中获得）
    .Body = Cells(rowCount, 5).Value      '"邮件内容"
   
    '设置附件（比如从　Excel　表的第四列“附件”字段中获得）
    .Attachments.Add Cells(rowCount, 4).Value    '"c:\\l"
               
    .Send
    End With
 
                  '销毁objMail对象
                  Set objMail = Nothing
          Next
   
          '销毁objOutlook对象
          Set objOutlook = Nothing
End Sub
注意：Outlook的信任中心设置中编程访问安全设置项要选中“从不向我发出可疑活动警告”，否则每发送一封邮件，OUTLOOK都会提示并要求确认。
个性签名 超拽

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。