[求助]能自动发送电子邮件吗？

huyongapple

再次对lotustower无私的帮助表示感谢，同时也要感谢northwolves的关注。

[此贴子已经被作者于2006-2-17 12:28:54编辑过]

lotustower

以下是引用[I]huyongapple[/I]在2006-2-17 11:54:15的发言：[BR]再次对lotustower版主无私的帮助表示感谢，同时也要感谢northwolves的关注。

樂意的分享, 但是 lotustower 並非是 ExcelHome 版主 叫 lotustower 更好 , 亦可以叫 Emily Thanks

huyongapple

又对自动发送邮件的代码进行了反复测试，发觉成功率不是100%，怀疑是其它进程将键盘缓冲区中的内容取走，导致自动发送邮件失败，基于这个想法，对10楼的代码又作了如下修改，初步测试成功率达100%了： Sub SendMail() Dim objOL As Object Dim itmNewMail As Object '引用Microsoft Outlook 物件模型 Set objOL = CreateObject("Outlook.Application") Set itmNewMail = objOL.CreateItem(olMailItem) With itmNewMail .Subject = "chijanzen Mail Test" '主旨 .Body = Application.UserName & "發送郵件測試2222" '本文 .To = "171262953@qq.com" '收件者 .Attachments.Add "C:\PDOS.DEF", olByValue, 1, "4th Quarter 1996 Results Chart" .Display '啟動視窗 End With On Error GoTo continue SendEmail: AppActivate itmNewMail DoEvents SendKeys "%s", Wait:=True DoEvents AppActivate itmNewMail GoTo SendEmail '发送不成功誓不罢休 continue: On Error GoTo 0 Set objOL = Nothing Set itmNewMail = Nothing End Sub 再次测试中发现，窗口标题为中文时，AppActivate命令不能执行。将AppActivate命令改为Display方法，可解决此问题，即将AppActivate itmNewMail改为itmNewMail.display。

[此贴子已经被作者于2006-2-20 12:34:35编辑过]

yvhf

大侠发邮件的代码，发送邮件时，不知道能否设置为立即发送，

还有就是如何把当前的工作簿作为附件发送呢，请指教。

堕落王

呵呵，我没有遇上这样的情况，谢谢

nickxie

作个记号，学习ing

tgrzwjf

谢谢高手们的工作,受益不少

簡單愛情

作个记号,下次要用的时候学习了...

jack_ye

学习了～！！谢谢！

verystrong

Thank you veryone