DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Send Outlook email thru VB

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Jul 2007

Posts: 113

Reputation: tgifgemini is an unknown quantity at this point

Solved Threads: 0

tgifgemini tgifgemini is offline

Offline

Junior Poster

Send Outlook email thru VB

Jul 17th, 2007

Hello everyone,
I have an exce spreadsheet called "ProjectStatus.xls" in my local folder "C:\ProjectStatus.xls".
I need to send it as an attachment to someone and I am using these codes:

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Set OutlookApp = CreateObject("Outlook.Application")
 Set OutlookMail = OutlookApp.CreateItem(Outlookmailitem)
 
 OutlookMail.To = "giftxtian@yahoo.com"
 OutlookMail.Subject = "Project Status"
 OutlookMail.Body = "This is VB email test"
 
 If Len(MailAttach) = 0 Then
    OutlookMail.Attachments.Add "C:\ProjectStatus.xls"
 End If
 
 OutlookMail.Display      'To display the email
 OutlookMail.Send         'To send the email
 
 Set OutlookApp = Nothing
 Set OutlookMail = Nothing
Set OutlookApp = CreateObject("Outlook.Application")
 Set OutlookMail = OutlookApp.CreateItem(Outlookmailitem)
 
 OutlookMail.To = "giftxtian@yahoo.com"
 OutlookMail.Subject = "Project Status"
 OutlookMail.Body = "This is VB email test"
 
 If Len(MailAttach) = 0 Then
    OutlookMail.Attachments.Add "C:\ProjectStatus.xls"
 End If
 
 OutlookMail.Display      'To display the email
 OutlookMail.Send         'To send the email
    
 Set OutlookApp = Nothing
 Set OutlookMail = Nothing