Excel Running Outlook VB

[David Robinson]

How can I automate emails sent by triggering links within
Excel. I would like to send a standard email to various
recipients when a date condition is met (actually an
updated forecast). Do I need to buy and install VB6 or
would I be able to run a programme in Excel that drives
my Outlook?

 

[David]

Bon

Thank you. Could I run this from Excel vba?

-----Original Message-----
David,

VBA can easily send mail via Outlook. Here is some example code

Dim objOutlook As Object
Dim objMailItem As Object
Dim objRecipient As Object
Dim objNameSpace As Object

Set objOutlook = CreateObject ("Outlook.Application")
Set objNameSpace = objOutlook.GetNameSpace ("MAPI")
objNameSpace.Logon , , True

Set objMailItem = objOutlook.CreateItem(0)
Set objRecipient =
objMailItem.Recipients.Add("(e-mail address removed)")
objRecipient.Type = 1 '1 = To, use 2 for cc
'keep repeating these lines with
'your names, adding to the collection.
objMailItem.Subject = "The extract has finished."
objMailItem.Body = "This is an automatic email notification"
objMailItem.Attachments.Add

(Filename) 'you only need this if

you are sending attachments?
objMailItem.Send

If you want to include an attachment as shown, it has to be a file not the
activeworkbook, so if you want to send the activeworkbbok, save it firat,
and then send it as that file. You can

use 'ActiveWorkbook.FullName' to

 

[David]

Does vba refer to the excel visual basic?

-----Original Message-----
David,

VBA can easily send mail via Outlook. Here is some example code

Dim objOutlook As Object
Dim objMailItem As Object
Dim objRecipient As Object
Dim objNameSpace As Object

Set objOutlook = CreateObject ("Outlook.Application")
Set objNameSpace = objOutlook.GetNameSpace ("MAPI")
objNameSpace.Logon , , True

Set objMailItem = objOutlook.CreateItem(0)
Set objRecipient =
objMailItem.Recipients.Add("(e-mail address removed)")
objRecipient.Type = 1 '1 = To, use 2 for cc
'keep repeating these lines with
'your names, adding to the collection.
objMailItem.Subject = "The extract has finished."
objMailItem.Body = "This is an automatic email notification"
objMailItem.Attachments.Add

(Filename) 'you only need this if

you are sending attachments?
objMailItem.Send

If you want to include an attachment as shown, it has to be a file not the
activeworkbook, so if you want to send the activeworkbbok, save it firat,
and then send it as that file. You can

use 'ActiveWorkbook.FullName' to