send mail via Outlook

[Tomer]

Hii,

I would like to send mail with ahk, I have this script which opens a new window message in outlook and then I just have to click "Send",
is it possible to send it automatically as well ?

Thanks!

Code: Select all

MailList := "[email protected]; [email protected]"

;edited out content

GoTo, EmailThem
Return

EmailThem:
Run, mailto:%MailList%?subject=Scheduled Database Maintenance&body=Greetings.`%0A`%0AWe are currently attempting to update or manage the MetroE 'Commercial Survey Tracker' database and noticed that you may still be logged in.`%0A`%0APlease save any updates or changes you have made and exit the database as soon as possible.  Maintenance should only last a few minutes once everyone is out.`%0A`%0AIf you have already logged out`, please disregard this automated system message.`%0A`%0A`%0A`%0AThank You.
Return

[BuLLDoG]

Yea, with ComObject

[Tomer]

@BuLLDoG

tnx

[BuLLDoG]

Code: Select all

MailItem := ComObjCreate("Outlook.Application").CreateItem(0)
MailItem.Recipients.Add("[email protected]")
MailItem.attachments.add("c:\test.pdf")
MailItem.Subject := "Hello World"
MailItem.body := "Hello body text"
MailItem.display

[BuLLDoG]

MailItem.send

[BuLLDoG]

It's only a sample with the options you may need.

[Tomer]

Tnx!

[Zubarm]

Hi
Is it possible to add more text to the mail then above.

[animagus46]

merd.... [solved]
that is the right command..

I can't figure out what the command should look like
How can i use variables for e-mail adress?

email = [email protected]
MailItem := ComObjCreate("Outlook.Application").CreateItem(0)
MailItem.Recipients.Add(email)
MailItem.Subject := "Hello World"
MailItem.body := "Hello body text"
MailItem.display

many thanks for a tip