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

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

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

Postby KevLev » Tue 19 Apr, 2016 08:59

Ребята,всем привет!Возник вопрос по макросу - рассылке на разные почтовые адреса. Есть макрос:
  1. SUB SendMail
  2.  Dim objEmail
  3.  Const cdoSendUsingPort = 2  ' Send the message using SMTP
  4. Const cdoBasicAuth = 1      ' Clear-text authentication
  5. Const cdoTimeout = 60       ' Timeout for SMTP in seconds
  6.     mailServer = "smtp.gmail.com"
  7.      SMTPport = 465
  8.      mailusername = "maximprusov2000@gmail.com"
  9.      mailpassword = "**********" 'your password
  10.     mailto = "mprusov@mail.ru;kevlevmax@yandex.ru;gdigdalo@mail.ru"
  11.      mailSubject = "Subject line"
  12.      mailBody = "This is the email body"
  13.  Set objEmail = CreateObject("CDO.Message")
  14.  Set objConf = objEmail.Configuration
  15.  Set objFlds = objConf.Fields
  16.  With objFlds
  17.      .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
  18.      .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = mailServer
  19.  .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTPport
  20.  .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
  21.      .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = cdoTimeout
  22.  .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasicAuth
  23.  .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = mailusername
  24.  .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mailpassword
  25.      .Update
  26.  End With
  27.  objEmail.To = mailto
  28.  objEmail.From = mailusername
  29.  objEmail.Subject = mailSubject
  30.  objEmail.TextBody = mailBody
  31.  objEmail.AddAttachment "Z:\Maksim\Macro.xlsx"
  32.  objEmail.Send
  33.  Set objFlds = Nothing
  34.  Set objConf = Nothing
  35.  Set objEmail = Nothing
  36.  
  37.  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: 7918
Joined: Tue 30 Aug, 2005 17:21
Location: Санкт-Петербург
Has thanked: 65 times
Been thanked: 94 times

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

Postby HaRT » Tue 19 Apr, 2016 09:33

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

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


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

Who is online

Users browsing this forum: No registered users and 1 guest