Solved: noob sent email question

[chungtinhlak]

Hi, this is my first time writing a macro in outlook, can someone tell me what is wrong with this.



Option Explicit
Sub dailyexitandarrival()
Dim objmail As Outlook.MailItem
Dim myattachements As Collection

Set objmail = Outlook.CreateItem(olMailItem)
With objmail
.BodyFormat = olFormatPlain
.Body = "Good Morning All, attached is Daily Exits and Arrivals. Please Click cancel when asked to updated."
.Display
.To = "John@smith.com"
End With
Set myattachements = objmail.Attachments
myattachements.Add "C:\\daily-arrivals-exits.ppt"
objmail.Send

End Sub

[JKwan]

Try this

Sub dailyexitandarrival()
Dim objmail As Outlook.MailItem
Dim myattachements As Collection

Set objmail = Outlook.CreateItem(olMailItem)
With objmail
.BodyFormat = olFormatPlain
.Body = "Good Morning All, attached is Daily Exits and Arrivals. Please Click cancel when asked to updated."
.Display
.To = "John@smith.com"
.Attachments.Add "C:\daily-arrivals-exits.ppt"
End With
End Sub

[chungtinhlak]

thanks, works great