Send to Outlook
Posted: 07 Jan 2013 19:06
When you right click files → Send to → Mail recepient:
- New mail appear with these files attached (but email is formatted as pain text and no signature!)
- Too many clicks
The script:+Save as "Send to Outlook.vbs"
+ Open selected file with "Send to Outlook.vbs"
+ Tips: You can customize this line in PFA:Now, everytime you need to send some files to Outlook, just Ctrl+Enter and select "Send to Outlook"
Update 12-Feb-13:
+ New mail's subject lists the name of all attached files (with extension)
+ New mail's body has default word "FYI". Of course you can easily customize to another word
- New mail appear with these files attached (but email is formatted as pain text and no signature!)
- Too many clicks
The script:
Code: Select all
On Error Resume Next
Set AppItem = CreateObject("Outlook.Application").CreateItem(0)
For each FileItem in WScript.Arguments
AppItem.Attachments.Add FileItem
BaseName = Right(FileItem,Len(FileItem) - InStrRev(FileItem,"\"))
MessageSubject = MessageSubject & "; " & BaseName
Next
AppItem.BodyFormat = 2
AppItem.Subject = Right(MessageSubject,Len(MessageSubject)-2)
AppItem.Display
AppItem.HTMLBody = "FYI" & AppItem.HTMLBody
+ Open selected file with "Send to Outlook.vbs"
+ Tips: You can customize this line in PFA:
Code: Select all
|"Send to Outlook|<xypath>\icon\Outlook.ico" *>E:\7Utilities\XYplorer\Scripts\Send to Outlook.vbs
Update 12-Feb-13:
+ New mail's subject lists the name of all attached files (with extension)
+ New mail's body has default word "FYI". Of course you can easily customize to another word