Reimb = ("Invoice").getCellRangeByName("Z1").getstring Partyname = ("Invoice").getCellRangeByName("M3").getstring I have have looked around the forum and it appears several users have this problem but there doesn't appear to be a simple solution.ĮMailAddress1 = ("Invoice").getCellRangeByName("P7").getstringĮMailAddress2 = ("Invoice").getCellRangeByName("AA2").getstringĮMailaddress = eMailaddress1 "," eMailaddress2ĮSubject = ("Invoice").getCellRangeByName("AA1").getstring I have checked my associations and "Mail" is set as the default. Please install an email program or, if one is already installed, create an association in the Default Programs control panel There is no email program associated to perform the requested action. It fails with this message on the last line (sendSimpleMailMessage)Īfter warning me with thefollowing message 'eMessage.Attachement = array(AttachmentURL)ĮndSimpleMailMessage ( eMessage, .SimpleMailClientFlags.NO_USER_INTERFACE ) 'AttachmentURL = convertToUrl("c:\users\fjcc\desktop\99Export.txt") Code: Select all sub SendAlert (wksym as string)ĮMailer = createUnoService(".SimpleSystemMail")ĮMailClient = eMailer.querySimpleMailClient()ĮMessage = eMailClient.createSimpleMailMessage()ĮMessage.Body = "wksym" 'temporary whilst testing
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |