![]() ' RunMyScript = AppleScriptTask("RDBMacOutlook.scpt", "myapplescripthandler", CStr(ScriptStr)) ![]() 'Call the RDBMacOutlook.scpt script file with the AppleScriptTask function ScriptStr = subject & " " & mailbody & " " & toaddress & " " & ccaddress & " " & _īccaddress & " " & displaymail & " " & fileattachmentĭebug.Print "Script string is: " & ScriptStr 'When you use more mail address separate them with a ,īccaddress = Sheets(1).Range("B38").Valueĭisplaymail = True ' Use False to send directly 'Fill in the information to create the mail '***** ONLY EDIT THE PART BELOW WITH YOUR INFO ***** ![]() If Val(Application.Version) < 15 Then Exit Sub 'If you use Excel 2011 check out the other code on my siteĭim FileExtStr As String, FileFormatNum As Longĭim Destwb As Workbook, TempFilePath As String, TempFilePath2 As Stringĭim TempFileName As String, NameFolder As String, SpecialFolder As Stringĭim subject As String, mailbody As String, toaddress As String, ccaddress As Stringĭim bccaddress As String, displaymail As Boolean, fileattachment As Stringĭim ScriptStr As String, RunMyScript As String Sub GenerateOutlookEmail()'For Excel 2016 for the Mac and Outlook 2016
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |