自动发送邮件的附件和抄送的问题

rmb_518

如何做到清除原先的附件,找了好几天也没有找到相关的DEL,CLS等好用的语句.

这样做的程序,为什么附件会一直累加下去呢? 我想发一次,换一个附件.

请高手指点.

kDlgaScW.rar (11.8 KB, 下载次数: 203)

2008-5-30 17:09 上传

点击文件名下载附件
自动发送邮件的附件问题

[此贴子已经被作者于2008-6-3 22:45:52编辑过]

aaaaabbbbb

试试下面的代码，虚线部分是增加的代码，其他没变

Sub Send_Range3333()
  
   ' Select the range of cells on the active worksheet.
   ActiveSheet.Range("A1:C4").Select
  
   ' Show the envelope on the ActiveWorkbook.
 For I = 2 To 4
   ActiveWorkbook.EnvelopeVisible = True
  
   ' Set the optional introduction field thats adds
   ' some header text to the email body. It also sets
   ' the To and Subject lines. Finally the message
   ' is sent.
   With ActiveSheet.MailEnvelope
  ' ----------删除所有附件------------
        Set myattachments = .Item.Attachments
        While myattachments.Count > 0
               myattachments.Remove 1
        Wend
'------------------------------------------
      .Introduction = "This is a sample worksheet."
      .Item.To = "1@qq.com"
      .Item.Subject = "My subject" & I
       .Item.Attachments.Add Range("C" & I).Value
      .Item.Send
 '     MsgBox "mail" & I & " is sending"
   End With
 Next
 
End Sub

rmb_518

aaaaabbbbb版主:

测试通过,你太有才了,其实上面的那个ActiveWorkbook.EnvelopeVisible = True

也是在你的帖子中发现的,这个很好用,附件问题困扰了我好多天,曾经找到过remove,但是忘了去试了,导致我没有弄出来,太感谢你了,你是我心中的一盏明灯,如果你愿意,我愿意奉献我的RMB.

aaaaabbbbb

不用客气，很高兴能跟大家一起分享

rmb_518

版主,测试时又遇一题,

如何去掉抄送邮箱,在第二封抄送邮箱为空的情况下,邮件自动取上一次抄的邮箱,如何清除掉呢?

KIzgFSIF.rar (12.25 KB, 下载次数: 99)

2008-6-3 22:43 上传

点击文件名下载附件
自动发送邮件的附件问题

aaaaabbbbb

可以在发送之前，将.item.to和.item.cc全部重置为空值。

rmb_518

.item.cc=""不行,

但等于空格就行,但不是太好.

zago

如果想发完一封后，隔10秒种再自动发另一封，应该如何实现？

另外，可否自动发送HTML内容的邮件？比如说有图片或是超链接的那种。

FLYPIG

三楼所说的 ActiveWorkbook.EnvelopeVisible ，运行时，总提示类不能自动化！！！！！！如何解决，请问？

rmb_518

拷贝下来试试。