creating a macro

T

tpitman

I would like to create a macro which would insert some default text i
the subject line of a new mail
 
S

Sue Mosher [MVP-Outlook]

Sub MyMail()
Dim objOL as Outlook.Application
Dim objMail as Outlook.MailItem

Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(olMailItem)
objMail.Subject = "some default text"
objMail.Display

Set objOL = Nothing
Set objMail = Nothing
End Sub
 
Top