Отправка писем из EXCEL

=ГИПЕРССЫЛКА("mailto:alexandr@pushkin.ru, mikhail@lermontov.ru?cc=vladimir@mayakovski.ru&bcc=anna@akhmatova.ru&subject=Дружеские посиделки&body=Друзья!%0AЕсть идея.%0AА не хлопнуть ли нам по рюмашке?";"Отправить")

http://www.planetaexcel.ru/techniques/11/82/

==================================================================

В URL также может содержаться адрес электронной почты. Щелкнув на такой гиперссылке, вы открываете сообщение в окне вашего стандартного почтового клиента, где в поле Кому указан адрес электронной почты. Например, =ГИПЕРССЫЛКА("mailto:s_bag@mail.ru";"Отправить"). Если на вашем локальном компьютере не установлен почтовый клиент и вы пользуетесь веб-почтой (например, gmail), то данный метод не сработает.

Можно также указать строку с темой. Вот пример первого аргумента функции ГИПЕРССЫЛКА, который содержит строку с темой письма: "mailto: s_bag@mail.ru?subject= Question on Excel". Кроме того, можно задать короткое стандартное сообщение: "mailto: s_bag@mail.ru?subject= Question on Excel&body=Help me". Ситуация немного усложняется, если в теле сообщения нужно сделать разрыв строки. В таком случае вам потребуется обозначить разрыв следующим кодом: %0A. На самом деле, следует кодировать все символы, не являющиеся английскими буквами и числами, даже пробелы. В Excel 2013 для этого есть функция КОДИР.URL, с помощью которой можно закодировать любую текстовую строку.

На рис. 2 изображен лист, созданный для быстрой отправки персонализированной электронной почты из Excel.

http://baguzin.ru/wp/?p=15389

====================================================================

Dim o_Mess, v_Conf
v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
Set o_Mess = CreateObject("CDO.Message")
With o_Mess
    .To = "support@apple.com" 'куда отправляем
    .From = "Alex <xxx@yandex.ru>" 'имя отправителя + Email
    .Subject = "Subj" 'Тема письма
    .TextBody = "BodyMail" 'Сообщение
    .AddAttachment "C:\RemoveDrive.exe" 'Прикрепить файл
    .TextBodyPart.Charset = "windows-1251" 'русская кодировка
With .Configuration.Fields
    .Item(v_Conf & "sendusing") = 2 'без использования каталога Server Exchange
    .Item(v_Conf & "smtpserver") = "smtp.yandex.ru" 'Адрес SMTP-сервера
    .Item(v_Conf & "smtpauthenticate") = 1 'Тип авторизации
    .Item(v_Conf & "sendusername") = "xxx" 'здесь имя пользователя без @
    .Item(v_Conf & "sendpassword") = "pass" 'пароль
    .Item(v_Conf & "smtpserverport") = 25 'порт (альтернативный - 465)
    .Item(v_Conf & "smtpusessl") = False 'использовать ли шифрованое подключение SSL
    .Item(v_Conf & "smtpconnectiontimeout") = 60 'Время до завершения повторных попыток подключения
    .Update
End With
    .send
End With
Set o_Mess = Nothing

http://www.cyberforum.ru/vbscript-wsh/thread683993.html#post3628610

=====================================================================

=ГИПЕРССЫЛКА( "mailto: osmtkl@ya.ru?subject= Тема&body=Текст письма";"Отправить")

=========================================================================

mailto:адрес электронной почты

?subject - тема пиcьма;

&Body - текст вашего сообщения;

&cc - копии письма через запятую;

&bcc - скрытые копии письма через запятую;

title - выпадающая подсказка, ставится по желанию и распологается отдельно от параметров почтовой ссылки

=======================================


mailto:[ mail address ] [?] [subject=subject] [&cc=mail address] [&bcc=mail address] [&body=message body]

Думаю тут всё ясно.
mail address — e-mail адрес
subject — тема сообщения
cc — email, на который отсылать копию письма
bcc — скрытый email адрес, на который отсылается письмо
body — сообщение, текст письма