1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 |
SUB sendOneMail(reportFile) Dim objEmail Dim strMailTo Const cdoSendUsingPort = 2 ' Send the message using SMTP Const cdoBasic = 1 'basic (clear-text) authentication 'Const cdoNTLM = 2 'NTLM SMTPServer = "smtp.gmail.com" SMTPPort = 465 ' Port number for SMTP Const SMTPTimeout = 60 ' Timeout for SMTP in seconds mailusername = "youruser@gmail.com" mailpassword = "topsecret" 'Get Selected values from field "mailto" Set objSelected = ActiveDocument.Fields("MailAdresse").GetPossibleValues 'Send mail Set objEmail = CreateObject("CDO.Message") Set objConf = objEmail.Configuration Set objFlds = objConf.Fields '------------------------------------------------------------------- ' SMTP server details With objFlds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTPPort .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = SMTPTimeout .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = mailusername .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mailpassword .Update End With objEmail.To = "philipp.frenzel@myplace.eu" ' remove the last ; in list objEmail.To = strMailTo objEmail.From = "reporting@myplace.eu" objEmail.Subject = getVariable("varMailSubject") objEmail.TextBody = getText("MsgBody") objEmail.AddAttachment reportFile objEmail.Send Set objFlds = Nothing Set objConf = Nothing Set objEmail = Nothing END SUB |