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

lmswy · 发表于 2010-12-22 22:11

用.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 · 发表于 2010-12-23 09:22

一条语句只能加一个附件

用循环吧

lumike · 发表于 2011-1-21 18:06

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

bone_machine · 发表于 2011-8-15 11:45

我也需要，请高手赐教

lmswy · 发表于 2011-9-19 14:51

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 · 发表于 2022-8-3 14:57

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

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

Peny2020 · 发表于 2022-8-4 14:31

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

		自动登录	找回密码
密码			免费注册

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