Hi,
I have the portion of code that will always give me that warning from Outlook that "A program is trying to send an e-mail on my behalf...". Can someone tell me how to modify it to stop the warning message? I tried putting the following line in front of and behind ".SendMail...", but I think it was in the wrong place both times, because it didn't work.
.Application.DisplayAlerts = False
Thanks,
Steve
With Destwb
.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
On Error Resume Next
For I = 1 To 3
.SendMail "someone@somewhere.com", _
"ABC Daily Report; Be sure to Enable Editing when you launch the attachment"
If Err.Number = 0 Then Exit For
Next I
On Error GoTo 0
.Close SaveChanges:=False
End With
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go here: http://www.mousetrax.com/techtrax to enter the ezine, then search the ARCHIVES for EXCEL VBA.
----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA
----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com
----------------------------------
Tidak ada komentar:
Posting Komentar