Отправка по списку адресов через Outlook

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

konstantinp

Дата: Понедельник, 27.08.2012, 16:21 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 86

Репутация: 0 ±

Замечаний: 0% ±

Добрый день,
Помогите решить такой несложный вопрос,
Есть таблица со списком адресов и текстом (см. приложение)
Можно ли с помощью макроса отправить письма по всем адресатом с текстом?

К сообщению приложен файл: 5194218.xls (43.5 Kb)

Ответить

konstantinp

Дата: Понедельник, 27.08.2012, 16:59 | Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 86

Репутация: 0 ±

Замечаний: 0% ±

Как вот этот код зациклить?
[vba]

Code

Sub SendMail()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range

Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
On Error GoTo cleanup
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next

With OutMail
.To = Range("A2").Value
.Subject = Range("B2").Value
.Body = Range("C3").Value
.Attachments.Add Range("D4").Value
.Send
End With

On Error GoTo 0
Set OutMail = Nothing

cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub

[/vba]

Ответить

Саня

Дата: Понедельник, 27.08.2012, 17:53 | Сообщение № 3

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

ссылку на Outlook прицепить:
Alt+F11, Tools - References - галку на Microsoft Outlook ?? Object Library

вставляешь это в стандартный модуль и запускаешь Отпр_много
[vba]

Code

sub Отпр_много()
     dim rng as range
     for each rng in range("A1:A5")  ' здесь не сложно тебе будет заменить?
        Отпр rng.value, rng.offset(,1).value
     next rng
end sub

Sub Отпр(Кому$, Тело$)
     Dim OutlookApp As Outlook.Application
     Dim MItem As Outlook.MailItem

     'Создание объекта Outlook
     Set OutlookApp = New Outlook.Application

     'Создание элемента сообщения
     Set MItem = OutlookApp.CreateItem(olMailItem)
     With MItem
         .To = Кому
         .Body = Тело
         '        .Display
         .Send
     End With
End Sub

[/vba]

Ответить

konstantinp

Дата: Понедельник, 27.08.2012, 18:28 | Сообщение № 4

Группа: Пользователи

Ранг: Участник

Сообщений: 86

Репутация: 0 ±

Замечаний: 0% ±

Саня,
Оч круто!
Спасибо!

Сообщение отредактировал konstantinp - Понедельник, 27.08.2012, 18:49

Ответить

DJ_Marker_MC

Дата: Вторник, 28.08.2012, 13:10 | Сообщение № 5

Группа: Друзья

Ранг: Ветеран

Сообщений: 991

Репутация: 213 ±

Замечаний: 0% ±

Excel 2019

Добрый день, думаю мой вопрос можно отнести сюда же...

А какой выход есть если отправка происходит через Outlook Express? И отправить нужно желательно на уже созданную группу пользователей в експрессе

У меня получается отправить на один адрес таким образом:

ActiveWorkbook.SendMail Recipients:=("pupkin@mail.ru"), Subject:="План-Факт"

когда пытаюсь отправить на группу то иду через переменную

Dim gruppa As String
gruppa = ("pupkin1@mail.ru; pupkin2@mail.ru ")
ActiveWorkbook.SendMail Recipients:=gruppa, Subject:="План-Факт"

но так не отправляет. Можете помочь с этим разобраться? или вообще какие то другие альтернативы отправки макросом через Out.Express на группу созданную там?

Ответить

DJ_Marker_MC

Дата: Вторник, 28.08.2012, 15:47 | Сообщение № 6

Группа: Друзья

Ранг: Ветеран

Сообщений: 991

Репутация: 213 ±

Замечаний: 0% ±

Excel 2019

всё, ссори, вопрос больше не актуален. Помогли на планете. Если кому будет полезно то правильно было сделать так:
Dim gruppa As String
gruppa = Array("pupkin1@mail.ru", "pupkin2@mail.ru")
ActiveWorkbook.SendMail Recipients:=gruppa, Subject:="План-Факт"

Сообщение отредактировал marker_mc - Вторник, 28.08.2012, 15:47

Ответить

Отправка по списку адресов через Outlook

Страница 1 из 1
1