如何在Outlook中使用宏发送邮件，并且使用已有签名？

 一、如何使用VBA发送邮件？

在工作中有一些邮件是常常需要发送，但是模式却是比较类似。

例如：日报邮件

收件人，主题，签名基本一致，除了主题中的日期需要更改之外

其他都可以采用一个模板来实现。

找了半天，不知道模板如何实现。

干脆写一个VBA函数来完成这个任务。

 

   实践发现outlook中是不支持宏的录制的，这样就带来了一些麻烦。

   在网上搜来搜去，找到了VBA编程发邮件的代码如下：

  

    '新建邮件 

    Set OutApp = CreateObject("Outlook.Application")    '创建outlook对象
    OutApp.Session.Logon                                               '登录MAPI
    Set OutMail = OutApp.CreateItem(olMailItem)           '新建邮件对象

 

   '设置邮件标题、收件人、等等

       With OutMail
        .To = strTo                                                             '收件人                                                     

        .CC = strCC                                                            '抄送
        .BCC = ""             
        .Subject = strSubject                                             '主题

 

其中主题可以读取当前日期

mDate = Format(Now, "yyyy-MM-dd")

strSubject  = "[日报]" & mDate                      

 

这样执行这个宏时，一封带当前日期标题的邮件已经生成好了，等待发送

 

可是我想加入签名怎么办？

可以在OutMail.body里设置

可是，我想读取已经设置好的签名怎么办？

 

请看下节：