vba调用outlook 自动发送邮件，添加多个附件文件的问题

lmswy

用.Attachments.Add  "C:\Users\Norman.lee\Desktop\Desktop\1.XLS" 可以自动添加1个附件，但有多个附件路径文件名分别在A列
A1="C:\Users\Norman.lee\Desktop\Desktop\1.XLS"
A2="C:\Users\Norman.lee\Desktop\Desktop\2.XLS"
A3="C:\Users\Norman.lee\Desktop\Desktop\3.XLS"
用.Attachments.Add  [A1].VALUE&;& [A2].VALUE&;& [A3].VALUE不能达到同时加入多个附件的目的，
请问应该如何写呢？

dsd999

一条语句只能加一个附件

用循环吧

lumike

有全部代码么，我需要这个东西

bone_machine

我也需要，请高手赐教

lmswy

bone_machine 发表于 2011-8-15 11:45
我也需要，请高手赐教

              .Introduction = ""
              .Item.To = Trim(ActiveSheet.Range("D6").Value)
              .Item.Cc = Trim(ActiveSheet.Range("W4").Value) & ";" & "milo@163.com"
              .Item.Subject =Trim(ActiveSheet.Range("D13").Value) & "等"
              
              For i = 4 To 21
              If Cells(i, 27) <> "" Then
                 .Item.Attachments.Add Cells(i, 27).Value
                Else
                    GoTo LIN
              End If
              Next
LIN:
             .Item.Display '显示OUTLOOK界面
              SendKeys "%s", True '先显示OUTLOOK窗口，再模拟键盘输入发送键,避开安全警告
        End With

Peny2020

lmswy 发表于 2011-9-19 14:51
.Introduction = ""
              .Item.To = Trim(ActiveSheet.Range("D6").Value)
   ...

请问如果每次发送的文件名称都不一样，可否实现只要存放在某路径中的文件都做为附件发送？

Peny2020

请问你的问题如何解决的啊？