[已解决]新建邮件挂附件挂不上是何问题指点

@wsm

Sub 发送邮件()
On Error Resume Next
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")  '建立一个新的OUTLOOK对象实例
Set objMail = objOutlook.CreateItem(0)              '新建邮件项目
With objMail
'    .To = "chen@sin.com"                           '新邮件的接受人
    .CC = "wu@sin.com"
    .Subject = "银行"                                        '新邮件的主题
    .Body = "这是一封测试邮件，用来测试邮件发送的程序。"    '新邮件的正文
    .Attachments.Add "d:\20110628", , 1            '新邮件的附件
    .Send                                                                     '发送新邮件
End With
Set objMail = Nothing
Set objOutlook = Nothing
End Sub
挂附件老挂不上，请哪位老师指点一下，谢谢
Attachments.Add 参数不够了解

最佳答案

月排行榜 / 总排行榜

QLZ0602

2012-7-16 07:53

@wsm 发表于 2012-7-13 13:21
附件跟上，谢谢

Option Explicit
Sub 发送邮件()
On Error Resume Next
Dim objOutlook As Object
Dim objMail As Object

Set objOutlook = CreateObject("Outlook.Application")  '建立一个新的OUTLOOK对象实例
Set objMail = objOutlook.CreateItem(0)              '新建邮件项目
With objMail
'    .To = "XXXX@sin.com"                           '新邮件的接受人
   
    .CC = "YYYYYY@sin.com"
   
    .Subject = "银行"                                        '新邮件的主题
    .Body = "这是一封测试邮件，用来测试邮件发送的程序。"    '新邮件的正文
    .Attachments.Add "d:\20110628.xls"          '新邮件的附件就是没有附件 后缀名
    .Send                                                                     '发送新邮件
End With
Set objMail = Nothing
Set objOutlook = Nothing
End Sub

跳转到最佳答案楼层

QLZ0602

.Attachments.Add "d:\20110628.后缀名", , 1   

.后缀名 是不是忘写了

@wsm

QLZ0602 发表于 2012-7-12 13:00
.Attachments.Add "d:\20110628.后缀名", , 1   

.后缀名 是不是忘写了

我都试过了，怎么弄就是没有成功

@wsm

有人帮我看看吗

QLZ0602

@wsm 发表于 2012-7-12 20:15
有人帮我看看吗

但你的代码中 没有呀?
另外最好把附件发上来

@wsm

QLZ0602 发表于 2012-7-13 11:21
但你的代码中 没有呀?
另外最好把附件发上来

能帮我调试一下吗，谢谢

@wsm

附件跟上，谢谢

QLZ0602

@wsm 发表于 2012-7-13 13:21
附件跟上，谢谢

Option Explicit
Sub 发送邮件()
On Error Resume Next
Dim objOutlook As Object
Dim objMail As Object

Set objOutlook = CreateObject("Outlook.Application")  '建立一个新的OUTLOOK对象实例
Set objMail = objOutlook.CreateItem(0)              '新建邮件项目
With objMail
'    .To = "XXXX@sin.com"                           '新邮件的接受人
   
    .CC = "YYYYYY@sin.com"
   
    .Subject = "银行"                                        '新邮件的主题
    .Body = "这是一封测试邮件，用来测试邮件发送的程序。"    '新邮件的正文
    .Attachments.Add "d:\20110628.xls"          '新邮件的附件就是没有附件 后缀名
    .Send                                                                     '发送新邮件
End With
Set objMail = Nothing
Set objOutlook = Nothing
End Sub