SCmd = sCmd & "'," End If End If If IsMissing(vAccount) = False Then SCmd = sCmd & "attachment='" For Each att In vAttachments SCmd = sCmd & "attachment='" & vAttachments & "'," Else SCmd = sCmd & "bcc='" & vBCC & "'," End If If IsMissing(vAttachments) = False Then If IsArray(vAttachments) = False Then SCmd = sCmd & "cc='" & vCC & "'," End If If IsMissing(vBCC) = False Then SCmd = sCmd & "message='" & vBodyHTMLFile & "'," End If If IsMissing(vCC) = False Then SCmd = sCmd & "subject='" & vSubject & "'," End If If IsMissing(vBodyHTMLFile) = False Then SCmd = sCmd & "to='" & vTo & "'," End If If IsMissing(vSubject) = False Then SCmd = "thunderbird -compose " "" If IsMissing(vTo) = False Then ' 3 Added vBodyHTMLFile ' Added sCmd length check to export to HTML file ' when it exceeds the string length limit '- Public Sub TB_SendEmail( Optional vTo As Variant, _ĭim oWSHShell As Object Dim sCmd As String Dim sCmdTemp As String Dim att As Variant Dim sHTMLFile As String ', , Array("C:\Temp\Book1.pdf", "C:\Temp\Desert.jpg")) ' Using a Specific Account to Send the E-mail From ' Call "My Subject", "My body.",, _ ', , "C:\Temp\Book1.pdf") ' Multiple Attachments ' Call "My Subject", "My body.",, _ ' ' Single Attachment ' Call "My Subject", "My body.",, _ ' Website : ' Purpose : Send e-mail using Mozilla Thunderbird e-mail client using VBA ' Copyright : The following is release as Attribution-ShareAlike 4.0 International ' (CC BY-SA 4.0) - ' Req'd Refs: Late Binding -> None required ' References: Requires a copy of OverwriteTxt() from ' ' Input Variables: ' ~~~~~~~~~~~~~~~~ ' vTo : To Recipient email address string (semi-colon separated list) ' vSubject : Text string to be used as the email subject line ' vBody : Text string to be used as the email body (actual message) ' vBodyHTMLFile : HTML file to be used as a template for the message body ' vCC : CC Recipient email address string (semi-colon separated list) ' vBCC : BCC Recipient email address string (semi-colon separated list) ' vAttachments : Single file -> fully qualified path and filename string ' Multiple files -> Array of attachment (complete file paths with ' filename and extensions) ' vAccount : E-mail address of the account to use for sending the email, ' if no match is found it will use the default account ' ' Usage: ' ~~~~~~ ' Start a Blank E-amil ' Call TB_SendEmail() ' Simple E-mail ' Call "My Subject", "My body.") ' Simple E-mail using HTML template file ' Call "My Subject",, "C:/Temp/EmailMessage.html") ' Multiple Recipients ' Call "My Subject", "My body.") ' Include CC Recipient ' Call "My Subject", "My body.",, _ '- ' Procedure : TB_SendEmail ' Author : Daniel Pineault, CARDA Consultants Inc.
0 kommentar(er)
