Outlook question

[mv8167]

Currently I use something like this to send my email (as it has been succesfull for quite some time)

Code:

Set oUtlookApp = CreateObject("Outlook.Application") Set newMail = oUtlookApp.CreateItem(0) newMail.Subject = strSubject newMail.Body = strMessageBody newMail.To = strMailID_TO newMail.CC = strMailID_CC newMail.BCC = strMailID_BCC If SendResultsInEmailMessage = 1 Then If strAttachment <> "" Then WScript.Sleep (3000) 'Wait(3) newMail.Attachments.Add (strAttachment) Else Exit Function End If On Error Resume Next End If WScript.Sleep (3000) 'Wait(3) newMail.Display 'Displays e-mail message window WScript.Sleep (3000) 'Wait(3) newMail.Send Set nAmeSpace = Nothing Set oUtlookApp = Nothing

Rescently i noticed that my emails are not being sent until I open Outlook.

So I added:

Code:

systemUtil.Run "OUTLOOK.EXE"

now i get 2 emails sent. If Outlook is open, i end up having two Outlook apps open.

Should not my original code just send my email without having to open Outlook?

[freeboynil]

This code worked for me when outlook is opened.

Code:

Set MyApp = CreateObject("Outlook.Application") Set MyItem = MyApp.CreateItem(0) 'MailItem With MyItem .To = "a@a.com" .Subject = "test" .ReadReceiptRequested = False .HTMLBody = "A new project has been created!" '.display 'SendKeys "%{s}", True 'Type alt+micEnter .Attachments.Add("c:\test1.txt") .Send End With