Auto EMail

[SymbionA]

I want to automatically send an email with an attachment at certain time of the day. I want the app to sit on the server and if I file is dropped in a folder I want that file to be attached to an email and sent.

Currently, the search is down here, has anybody got any similar code available for use?

Many thanks

 

[SymbionA]

Ok. Search is up. Anyway, I am using this code below, however, I do not receive the email, it just states "Message Sent"

Any ideas why?

Thanks in advance.
-------------------
Private Sub RunEmail_Click()

Dim objOutlook As Object
Dim objEmail As Object

Set objOutlook = CreateObject("Outlook.application")
Set objEmail = objOutlook.CreateItem(olMailItem)

strWAEmail = "Name@Company.com"
strWASubject = "Subject of Email"
strWABody = "Body of email goes here"

With objEmail
.To = strWAEmail
.SentOnBehalfOfName = "Name@Company.com"
.Subject = strWASubject
.Body = strWABody
.Importance = olImportanceHigh
.Sent
End With

Set objEmail = Nothing

MsgBox ("message sent")

 

[nickdel]

Change

 .sent

to

 .send

Cheers

Nick

 

[JerryKlmns]

Add

objOutlook.Quit
Set objOutlook = Nothing


----------
Replace olMailItem with 0 and
olImportanceHigh 2

For when a new file is in the folder look here thread222-719707