A contribution for Outlook and the large portion of the credit for this goes to tank.
Outlook_SetEmail() will set the To, Cc, Bcc, Subject and Body fields for an Outlook email. It can either create a new email to set the data in or set it in the current email. The To, Cc and Bcc parameters will all accept a comma-delimited list of recipients and Outlook will attempt to resolve each recipient using a helper function
RecipientCheck(). I've also tried to add a little bit of smart handling for Body to try to identify when HTML is being used. Something about sending to "Bcc" in the current email is slightly buggy as it will occassionally send the last recipient to the "To" field, feel free to make any improvements:
Code:
!j::Outlook_SetEmail("true","chris@autohotkey.com","AutoHotkey"
,"AutoHotkey ROCKS!!!")
Outlook_SetEmail(NewMail="true",To="",Subj="",Body="",Cc="",Bcc="",Att="") {
global itm
olMailItem:=0,olTo:=1,olCC:=2,olBCC:=3
bodyType:=(SubStr(Body,1,1)="<") ? "HTMLBody" : "Body"
COM_CoInitialize()
ol:=COM_GetActiveObject("Outlook.Application")
if NewMail {
itm:=COM_Invoke(ol,"CreateItem",olMailItem)
}
else
itm:=COM_Invoke(ol,"ActiveInspector.CurrentItem")
if To
Loop, Parse, To, `,
RecipientCheck(A_LoopField,olTo)
if Cc
Loop, Parse, Cc, `,
RecipientCheck(A_LoopField,olCC)
if Bcc
Loop, Parse, Bcc, `,
RecipientCheck(A_LoopField,olBCC)
if Subj
COM_Invoke(itm,"Subject",Subj)
if Body
COM_Invoke(itm,bodyType,Body)
if Att {
Loop % Att {
FileSelectFile, oAtt, M
Loop, Parse, oAtt, `n
{
if A_Index=1
path:=A_LoopField
else
COM_Invoke(itm,"Attachments.Add",path "\" A_LoopField)
}
}
}
if NewMail {
itm:=COM_Invoke(itm,"GetInspector")
COM_Invoke(itm,"Display")
}
COM_Release(itm),COM_Release(ol)
COM_CoUninitialize()
return
}
RecipientCheck(rec,type) {
global itm
COM_Error(0)
n:=COM_Invoke(itm,"Recipients.Add",rec)
COM_Invoke(n,"Resolve")
COM_Invoke(n,"Type",type)
COM_Release(n),VarSetCapacity(n,0)
COM_Error(1)
}
12182009: Added a parameter to add attachments to emails(Att). The value to specify is the number of times you would like a file-attaching loop to call FileSelectFile. The multi-select option is also enabled in FileSelectFile so you can attach multiple files from multiple directories.
02102010: Corrected code to optimally produce a new email and connect to Inspector object so Display method can be properly called without the use of COM_Error().
Login
Register
FAQ
Search
