#zipandmail
@script VBScript
Option Explicit
Function OnClick(ByRef clickData)
DOpus.ClearOutput
Dim cmd, lister, tab, selItem, folderEnum, folderItem
' ---------------------------------------------------------
Set cmd = clickData.func.command
cmd.deselect = false ' Prevent automatic deselection
Dim OutApp, oNameSpace, oInbox, oEmailItem, olMailItem
Dim a, oAttachments, subjectStr, olFormatHTML
Dim objFSO,strSigFilePath, objSignatureFile, strBuffer, strText
olMailItem = 0
olFormatHTML = 2
Set OutApp = CreateObject("Outlook.Application") 'opens Outlook
Set oEmailItem = OutApp.CreateItem(olMailItem) 'opens new email
Const LineBreak = "<br>"
DOpus.Output "Selected items in " & clickData.func.sourcetab.path & ":"
If clickData.func.sourcetab.selected.count = 0 Then
DOpus.Output " (none)"
Exit function
Else
For Each selItem in clickData.func.sourcetab.selected
If (selItem.is_dir) Then
DOpus.Output " (d) " & selItem.RealPath
Else
DOpus.Output " (f) " & selItem.RealPath
' Set oAttachments = oEmailItem.Attachments.Add(selItem.RealPath)
Set oAttachments = oEmailItem.Attachments.Add(CStr(selItem.RealPath))
subjectStr = subjectStr & Right(selItem.RealPath,Len(selItem.RealPath)-(InStrRev(selItem.RealPath,"\"))) & ", "
strText=strText & LineBreak & Right(selItem.RealPath,Len(selItem.RealPath)-(InStrRev(selItem.RealPath,"\")))
End If
Next
End If
DOpus.Output clickData.func.sourcetab.selected(0).RealPath
Set objFSO = CreateObject("Scripting.FileSystemObject")
'below you could change your username and the Outlook signature file name
strSigFilePath = "C:\Users\huangb\AppData\Roaming\Microsoft\Signatures\"
Set objSignatureFile = objFSO.OpenTextFile(strSigFilePath & "Short_en.htm")
strBuffer = objSignatureFile.ReadAll
objSignatureFile.Close
'below you could change the Email Subject Prefix and the Text Prefix
oEmailItem.Subject = "FileSharing: " & Left(subjectStr, len(subjectStr)-2)
oEmailItem.BodyFormat = olFormatHTML
oEmailItem.HTMLBody = "Please check attachment: " & strText & ". " & LineBreak & LineBreak & strBuffer
oEmailItem.Display
End Function