Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Программирование, связанное с MS Office > Макрос рассылки на разные адресы почт

Автор: KevLev 19.4.2016, 11:42

Всем привет!Возник вопрос по макросу - рассылке на разные почтовые адресаты. Есть макрос:

SUB SendMail
Dim objEmail
Const cdoSendUsingPort = 2 ' Send the message using SMTP
Const cdoBasicAuth = 1 ' Clear-text authentication
Const cdoTimeout = 60 ' Timeout for SMTP in seconds
mailServer = "smtp.gmail.com"
SMTPport = 465
mailusername = "[email protected]"
mailpassword = "**********" 'your password
mailto = "[email protected];[email protected] u;[email protected]"
mailSubject = "Subject line"
mailBody = "This is the email body"
Set objEmail = CreateObject("CDO.Message")
Set objConf = objEmail.Configuration
Set objFlds = objConf.Fields
With objFlds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = mailServer
.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") = cdoTimeout
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasicAuth
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = mailusername
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mailpassword
.Update
End With
objEmail.To = mailto
objEmail.From = mailusername
objEmail.Subject = mailSubject
objEmail.TextBody = mailBody
objEmail.AddAttachment "Z:\Maksim\Macro.xlsx"
objEmail.Send
Set objFlds = Nothing
Set objConf = Nothing
Set objEmail = Nothing

end sub

Если кто сталкивался,подскажите пожалуйста,что нужно изменить в макросе,чтобы РАЗЛИЧНЫЕ файлы xlsx рассылались ОПРЕДЕЛЕННЫМ адресатам? На данный момент,я могу только отсылать один эксель файл "Macro.xlsx" на 3 адреса.Спасибо за внимание к вопросу!

Автор: ovpmusic 20.4.2016, 14:02

Цитата

mailto = "[email protected];[email protected] u;[email protected]"

Сюда добавляешь ещё адресатов(но кол-во ограничено), например:

Код


mailto = "[email protected];[email protected] u;[email protected];[email protected];[email protected]"

Цитата

objEmail.AddAttachment "Z:\Maksim\Macro.xlsx"

Добавляешь эту строку еще раз, но пишешь другое имя файла, например:

Код


objEmail.AddAttachment "Z:\Maksim\Macro1.xlsx"
objEmail.AddAttachment "Z:\Maksim\Macro2.xlsx"

Этот ответ добавлен с нового Винграда - http://ru.vingrad.com/Makros-rassylki-na-raznyye-adresy-pocht-id5715f010ae20158e6f8b4567#findElement_E7045_571761b6ae2015d031f99f2e_0