2 Replies Latest reply: Jan 26, 2014 11:27 AM by Med Sof Khy RSS

    Macros automailing

      Hi frriends,

       

       

      I am Using Macros to send the mail automatically...but in the Subject Body along with the name i shud mention the dealercode how i can do this.

      ex: I hav subject as "Monthly Analysis Report" instead of this i wont as "Monthly Analysis Report_DealerCode" means as the pdf is generated for each dealer that particular code also has to be mentioned "Monthly Analysis Report_DLO45'  like dis how can i do this... i hve attached part of my code.

       

       

       

       

       

      'FUNCTION FOR SENDING MAIL USING SMTP

      function sendMail(attachfile)

          Dim filesys

          Dim fileTest

          Dim objEmail

          Dim strMailTo

       

       

       

             Set fileTest = CreateObject("Scripting.FileSystemObject")

            

          currentStatus = fileTest.FileExists (attachfile)       

          if currentStatus = false then

              rem ** let QV sleep for 1 seconds **

              ActiveDocument.GetApplication.Sleep 1000

              'msgbox ("No files to attach")

              set fileTest = nothing

              exit function

          end if   

          set fileTest = nothing

         

       

          Const cdoSendUsingPort = 2         ' Send the message using SMTP

          Const CdoReferenceTypeName = 1

          Const cdoAnonymous = 0                 'Do not authenticate

          Const cdoBasic = 1                     'basic (clear-text) authentication

          Const cdoNTLM = 2                      'NTLM        

          Const SMTPServer = "192.168.61.200" 'SMTP IP

          Const SMTPPort = 25                    'Port number for SMTP

          Const SMTPTimeout = 60                 'Timeout for SMTP in seconds        

          Set objSelected = ActiveDocument.Fields("Email").GetPossibleValues("300")

         

          Set objCCSelected = ActiveDocument.Fields("CCMail").GetPossibleValues("300")

                              

          if objSelected.Count = 0  and  objCCSelected = 0 then   ' Nothing Selected

              'msgbox ("No e-mail reciepient selected")

              exit function

          else    

              Set objEmail = CreateObject("CDO.Message")

              Set objConf = objEmail.Configuration

              Set objFlds = objConf.Fields

              Set v = ActiveDocument.Variables("vlast_week")

             

              With objFlds

                  ' SMTP server details

                  .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/smtpauthenticate") = cdoAnonymous

                  .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "abc@gmail.com"

                  .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"

                  .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

                  .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = SMTPTimeout

                  .Update

              End With    

             

             

                                                     

              For i = 0 to objSelected.Count-1 ' create mailTo list

                  strMailTo = strMailTo & objSelected.Item(i).Text & ";"   

                 

              next   

                    

                    

              For j = 0 to objCCSelected.Count-1 ' create mailCC list

                  strMailCc = strMailCc & objCCSelected.Item(j).Text & ";"           

                 

              next 

                

              With objEmail

                  Set .Configuration = objConf

                      .From =

                      .To = strMailTo  "xyz" strMailTo' getvariable("vEmail")  'strMailTo

               

                      'msgbox (strMailTo)  

                      .BCC = 

                      .Subject = "Monthly AnalysisReport" '& ActiveDocument.Evaluate("v")