Интересный макрос для создания писем в Outlook через Excel

[Neo007]

Уважаемые господа программисты. Помогите, пожалуйста, создать макрос для рассылки писем через MS Outlook.
В приложении находится файл, который может помочь. Если запустить макрос "MailAttachFile" он создает письмо из Outlook и в принципе у меня больше ничего не происходит. А можно сделать так, чтобы используя вкладку "Шаблон" письма создавались и отсылались автоматически с одним и тем же текстом (Диапазон: D5:D12), тема письма одна и та же (D3), затем к письму прициплялся файл из определенной папки, где находятся одноименные файлы, указанные в столбце А. Тут поможет цикл, берем ячейку А3, сравниваем его с именем файла в определенной папке, если такого нет, то переходим к следующей ячейке, если есть, то этот файл он приципляет к созданному письму, а отправитель берется из контактов Outlook, где 4 правых символа совпадают с именем файла, а первый левый символ всегда будет М.
Например, запуская макрос, создается письмо с постоянным текстом и темой, куда приципляется файл (например 1010), и отправляется адресату из адресной книги Outlook М1010. И до конца списка в столбце А.
Outlook на английском языке.

[SAS888]

Узнаю этот код. Только он был написан как руководство к действию для использования программы почтового клиента, установленной по умолчанию.
В случае с Outlook все гораздо проще.
Предлагаю примерный код отправки письма с прикрепленным файлом. "Примерный", потому что не могу проверить (нет Outlook).

Sub Mail()

    Dim OutlookApp As Object, SM As Object
    
    Set OutlookApp = CreateObject("Outlook.Application")
    Set SM = OutlookApp.CreateItem(olMailItem)  'Создаем объект
    
    SM.To = "User@mail.ru"                      'Вставьте требуемый электронный адрес
    SM.Subject = "Report"                       'Заполнение поля "Тема"
    SM.Body = "TextReport"                      'Заполнение поля "Сообщение"
    SM.Attachments.Add "C:\Temp\abcd.xls"       'Путь к прикрепляемому файлу
    
    On Error Resume Next                        'Перехват возможной ошибки
    SM.Send                                     'Посылаем сообщение
    
    OutlookApp.Quit                             'Закрываем OutLook (если нужно)
    
    Set SM = Nothing                            'Очищаем использовавшиеся объекты
    Set OutlookApp = Nothing

End Sub

Ссылки на ячейки, поиск файлов в папках и циклы добавьте самостоятельно.

P.S. Не забудьте в Tools->Reference подключить библиотеки "Microsoft Office xx Object Library" и "Microsoft Outlook xx Object Library".

[Neo007]

Смотри, а если у меня в контахтах есть группы, например М1010. Там находятся адреса нескольких человек, кому мне нужно отправить письмо. Так вот как мне в SM.To вставить именно эту группу, а не адреса нескольких человек??? Пишу SM.To.Contact = "M1010" - выдает ошибку(((

[SAS888]

К сожалению я не имею возможности дать точный ответ. Ждите других. Пока можете поэкспериментировать с методом "SendMail".

[Neo007]

А кто-нибудь может помочь?

(добавлено модератором - может, кому пригодится)

Посмотрите самый простой способ, как организовать отправку почты (рассылку писем)
(с использованием программы заполнения документов по шаблонам, с последующей отправке по почте)

В программе есть возможность формировать письма по шаблону (с подстановкой данных из таблицы Excel),
прикреплять сформированные документы и файлы из выбранной папки, и много других возможностей.

[owl-ka]

Еще нужны макросы?
Их существует 3 вида - для отправки фрагмента, листа и всей книги.

[Иван Иванович]

Сообщение от owl-ka

Еще нужны макросы?
Их существует 3 вида - для отправки фрагмента, листа и всей книги.

Нужны. Выложите, пожалуйста.

[Иван Иванович]

http://www.rondebruin.nl/sendmail.htm

[Erroreus]

А есть макрос отправкивсех листьев в книге, имеющих название - адрес получателя?

[owl-ka]

обещаные макросы, надеюсь помогут