Макрос рассылки на разные адреса

Здесь обсуждаются проблемы мироустройства.
Post Reply
KevLev
Posts: 1
Joined: Tue 19 Apr, 2016 08:50

Макрос рассылки на разные адреса

Post by KevLev » Tue 19 Apr, 2016 08:59

Ребята,всем привет!Возник вопрос по макросу - рассылке на разные почтовые адреса. Есть макрос:
  1. SUB SendMail
  2.  
  3.  Dim objEmail
  4.  
  5.  Const cdoSendUsingPort = 2  ' Send the message using SMTP
  6.  
  7.  Const cdoBasicAuth = 1      ' Clear-text authentication
  8.  
  9.  Const cdoTimeout = 60       ' Timeout for SMTP in seconds
  10.  
  11.      mailServer = "smtp.gmail.com"
  12.  
  13.      SMTPport = 465
  14.  
  15.      mailusername = "maximprusov2000@gmail.com"
  16.  
  17.      mailpassword = "**********" 'your password
  18.  
  19.      mailto = "mprusov@mail.ru;kevlevmax@yandex.ru;gdigdalo@mail.ru"
  20.  
  21.      mailSubject = "Subject line"
  22.  
  23.      mailBody = "This is the email body"
  24.  
  25.  Set objEmail = CreateObject("CDO.Message")
  26.  
  27.  Set objConf = objEmail.Configuration
  28.  
  29.  Set objFlds = objConf.Fields
  30.  
  31.  With objFlds
  32.  
  33.      .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
  34.  
  35.      .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = mailServer
  36.  
  37.  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTPport
  38.  
  39.  .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
  40.  
  41.      .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = cdoTimeout
  42.  
  43.  .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasicAuth
  44.  
  45.  .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = mailusername
  46.  
  47.  .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mailpassword
  48.  
  49.      .Update
  50.  
  51.  End With
  52.  
  53.  objEmail.To = mailto
  54.  
  55.  objEmail.From = mailusername
  56.  
  57.  objEmail.Subject = mailSubject
  58.  
  59.  objEmail.TextBody = mailBody
  60.  
  61.  objEmail.AddAttachment "Z:\Maksim\Macro.xlsx"
  62.  
  63.  objEmail.Send
  64.  
  65.  Set objFlds = Nothing
  66.  
  67.  Set objConf = Nothing
  68.  
  69.  Set objEmail = Nothing
  70.  
  71.  
  72.  
  73.  end sub
Если кто сталкивался,подскажите пожалуйста,что нужно изменить в макросе,что РАЗЛИЧНЫЕ файлы xlsx рассылались ОПРЕДЕЛЕННЫМ адресатам? На данный момент,я могу только отсылать один эксель файл "Macro.xlsx" на 3 адреса.Спасибо за внимание к вопросу!
Last edited by HaRT on Tue 19 Apr, 2016 09:38, edited 1 time in total.
Reason: [codebox], тема перенесена

User avatar
HaRT
Moderator
Posts: 8017
Joined: Tue 30 Aug, 2005 17:21
Location: Санкт-Петербург
Has thanked: 67 times
Been thanked: 99 times

Макрос рассылки на разные адресаты

Post by HaRT » Tue 19 Apr, 2016 09:33

— Здравствуйте, это канал об аниме?
— Да.
— Как мне пропатчить KDE2 под FreeBSD?

Это в смысле, каким боком данный вопрос относится к тематике форума?
PS
Потому и тему я перенёс в этот раздел.
Фар есть инструмент, а не нянька. © 2009 DrKnS

Post Reply

Return to “О тщете всего сущего”