以发件箱的某封邮件为模板，批量发送邮件

chyua

任务：给200家店铺发送邮件，邮件正文一样，除了称呼
要求：

• 邮件主题以店铺命名
• 添加该店铺成绩excel文件为附件（每家店铺有一个文件）
• 开头称呼已店铺名称开头，如“尊敬的xx店铺”
  

因为邮件正文有文字，有图片，有加粗字体等等格式，所以用VBA写不知道怎么表达处理。
我现在是想，我用发件箱的第一封邮件作为模板，然后点击【重新发送这封邮件】，再修改附件为对应店铺文件，修改主题，修改开头称呼。

不知道应该怎么写命令呢？
或者有没有其它的思路可以实现？
感谢。

chyua

下面的这段代码可以实现，自由添加邮件地址，自由修改主题，自由添加附件，但是正文搞不了，只能改称呼。

Sub sendemail()

    Dim myOlApp As Object
    Dim myitem As Object
    Dim i As Integer, j As Integer
    Dim strg As String
    Dim atts As Object
    Dim mycc As Object
    Dim myfile As String

    Set myOlApp = CreateObject("Outlook.Application")
   
    With Sheets("Sheet1")
        i = 2

        Do While .Cells(i, 2) <> ""
            Set myitem = myOlApp.CreateItem(0)
           Set atts = myitem.Attachments
            myitem.To = .Cells(i, 2)              '收件人E-mail
            myitem.Subject = .Cells(i, 3)            '标题
            myitem.Body = "尊敬的" & Cells(i, 1) & "店铺负责人，" & vbNewLine & vbNewLine & vbNewLine & .Cells(i, 4) '正文
            myfile = Dir(ThisWorkbook.Path & "\*" & .Cells(i, 1) & "*.*")
            Do Until myfile = ""
                myitem.Attachments.Add ThisWorkbook.Path & "\" & myfile, 1
                myfile = Dir
            Loop
            myitem.display '预览，如果想直接发送，把.display改为.send

            i = i + 1
            strg = ""
        Loop
    End With
    Set myitem = Nothing
End Sub

闻启学

正文有图片比较难搞

，有加粗字体等等格式， 这回容易

name004

把附件搞上来，代码才有研究修改的价值。
你的要求也复杂，附件上说明白，达到如何的效果

闻启学

圣诞邮件发送模板_Excelhome 更新.rar (75.03 KB, 下载次数: 166)

2014-9-11 21:34 上传

点击文件名下载附件

这个附件是可以插入图片的  

chyua

闻启学 发表于 2014-9-11 21:35
这个附件是可以插入图片的

有点复杂了。
我想问，是否可以用发件箱的第一封邮件作为模板，只是将里面的附件替换，主题替换，称呼替换。不知道这样的命令应该怎样写？感谢

dsd999

chyua 发表于 2014-9-11 22:56
有点复杂了。
我想问，是否可以用发件箱的第一封邮件作为模板，只是将里面的附件替换，主题替换，称呼替 ...

图片都是一样的？

chyua

dsd999 发表于 2014-9-12 13:22
图片都是一样的？

对，图片都是一样的。
其实正文就是称呼不一样，其余都一样。只是里面有太多的格式，客户规定好了模板，没办法修改。

chyua

dsd999 发表于 2014-9-12 13:22
图片都是一样的？

版主，求救啊~~

chyua

dsd999 发表于 2014-9-12 13:22
图片都是一样的？

如果收件箱中有100封邮件，每封邮件都是以店铺名为主题。
需要处理：转发A店铺的邮件，并在邮件正文中改变称呼，正文就一段文字。
是否可以呢？