Article Writing

Dim objOutlook
Dim objMessage
Dim objRecipient
Dim strBody
Dim strExtra
 
Set objOutlook   = CreateObject("Outlook.Application")
Set objMessage   = objOutlook.CreateItem(olMailItem)
Set objRecipient = objMessage.Recipients.Add("name@company.com")
 
objMessage.Subject = "Updated IJS v5.4 files - read for more info"
 
strExtra = InputBox("Additional information:")
 
strBody =           "This is an automated message." & vbCrLf & vbCrLf
strBody = strBody & "Additional information:" & vbCrLf & strExtra & vbCrLf & vbCrLf
strBody = strBody & "- David Crow"
objMessage.Body = strBody
 
objMessage.Send
 
Set objRecipient = Nothing
Set objMessage   = Nothing
Set objOutlook   = Nothing

"The largest fire starts but with the smallest spark." - David Crow

bansalpuneet1 wrote:

i hav no VB, .net installed...I want this to be done via macro from excel...

"The largest fire starts but with the smallest spark." - David Crow