Hi all,
I've created a Sub to send an email from excel as shown;
Code:
--------------------
Sub SendAnEmailWithOutlook(CurrFile)
Dim olApp As Outlook.Application
Dim olMail As MailItem
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
With olMail
.To = "
.CC = "
.Subject = "Textron Schedule Agreements: " & Right(CurrFile, 13)
.Attachments.Add CurrFile & ".xls"
.Display
.OriginatorDeliveryReportRequested = True
.ReadReceiptRequested = True
End With
Set olMail = Nothing
Set olApp = Nothing
End Sub
--------------------
I need to find out how I can determine whether or not the email had
actually been sent or not.
Any help appreciated! TIA
--
gti_jobert
------------------------------------------------------------------------
gti_jobert's Profile:
http://www.excelforum.com/member.php...o&userid=30634
View this thread:
http://www.excelforum.com/showthread...hreadid=545045