Отправка почты макросом VBA без использования почтовых программ

Добрый день.
Подскажите в чем может быть проблема.
Отправляю файлы данным методом(имя файла кириллица, путь кириллица и латиница)
При отправке(если длинное имя файла, опытным путем определил больше 40 символов)в имя файла добавляется символ t.
Например отправляю файл Петров Петр Петрович.xlsb а во вложении Петров Петр Петроtвич.xlsb
Символ t может очутится и в расширении файла xtlsb или xlstb, что приносит неудобства при открытии.
С чем может быть связана такая проблема.
Работаю через удаленный доступ, почта корпоративная(домен @фирма.и так.далее).
Спасибо.

AlexBY, спасибо. Строки .BodyPart.Charset = "UTF-8" в моем случае оказалось достаточно, чтобы отправленные с кириллицей сообщения отображались корректно в Outlook для Android.

При отправке с .TextBody равному тексту с переносами строки - ошибка.
Например, нужно отправит тело письма вида:

"Добрый день,
Отправляем Вам запрос"

Вываливается ошибка.
Если так: "Добрый день, Отправляем Вам запрос" - то все ок

Как можно сформировать тело письма, чтобы получилось с переносом строк?

Спасибо

Данный макрос нормально работает даже на Win10 + Office2016 Письма отправляются и доходят до получателя. Единственное но - выскакивает сообщение Не удалось отправить письмо... Может можно это допилить?)

При попытке отправки выдает номер ошибки -2147220977
Подскажите, пожалуйста что это.

"В Windows7 данный макрос работать не будет ввиду отсутствия библиотеки CDO for Windows 2000.
(потребуется ручная установка недостающей библиотеки)"

Скажите, пож., как это сделать?

Игорь, Спасибо !

Добрый день.
Как с помощью вашего макроса отправить 2 или 3 файла во вложении ?

Добрый день!
Есть необходимость отправлять письмо с текстом и вложением.
Вложение - лист Excel (один активный лист из книги) без создания отдельного файла на ЖД.

Добрый день! Спасибо за материал. Есть вопрос. В 2008 году написал аналогичный макрос в VBA Excel 2003. Часто им пользовался в то время. Потом потребность исчезла. Сейчас снова потребовалось его использовать. Но на компе уже Excel 2010 и 2016 + Windows 7. Оба экселя после выполнения метода send закрываются без предупреждения. При этом тестовое письмо отправляется. Может быть, есть идеи где искать проблему?

Вопрос снят, разобрался...

Все настроил, работает под Win7 без проблем.
Единственный вопрос в имени отправителя.
На почту приходит письмо которое не отображает имя отправителя соответственно постоянно во входящих висит именно адрес емайла...
Можно как нибудь сделать чтобы имя пользователя тоже передавалось?

Игорь, спасибо. Разобрался, все работает. Действительно не обязательно иметь подключение к интернет.
Этого оказалось достаточно.
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtpserver"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "port"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Update
End With

Добрый день!
Подскажите, будет ли работать данный способ рассылки в локальной сети без доступа рабочей станции к инету? SMTP-сервер локальный есть. Дома попробовал - все ОК. На работе - не хочет. Смущает вот это Const cdoConfigURL = "http://schemas.microsoft.com/cdo/configuration/". Я правильно понимаю, без доступа к microsoft.com ничего не получится?

Добрый день, подскажите как для винд 7 установить cdo.

Сегодня боролся и чуть не сломался
при добавлении атачмента, текст в письме страновился вопросиками, (без атачмента текст был красивыми русскими буковками), хотя местами сносило и сабджект и имя атачмента ...
на мысль об проблеме мультичастей как раз и навело
удалось побороть:

    ' Create a CDO Message object.
    Set MailMessage = CreateObject("CDO.Message")
    If Err.number <> 0 Then
        SendEMail = False
        Exit Function
    End If
    Err.Clear
    On Error GoTo 0
    With MailMessage
        .Subject = Subject
        .From = FromAddress
        .To = Recips(NRecip)
        .CC = ccAddr
 
        With .Configuration.Fields
            ' set up the SMTP configuration
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTP_Server
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTP_ServerPort
'.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = ServerUser
'.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ServerUserPass
            .Item("http://schemas.microsoft.com/cdo/configuration/languagecode") = "ru"
            .Item("urn:schemas:mailheader:content-language") = "ru"
            .Item("http://schemas.microsoft.com/cdo/mailheader/content-type") = "text/html; charset=UTF-8"
            .Update
        End With
        .BodyPart.Charset = "UTF-8"
 
        If MailBody <> vbNullString Then
            .TextBody = MailBody
        End If
 
        If IsArray(Attachments) = True Then
            ' attach all the files in the array.
            For N = LBound(Attachments) To UBound(Attachments)
                ' ensure the attachment file exists and attach it.
                If Attachments(N) <> vbNullString Then
                    If Dir(Attachments(N), vbNormal) <> vbNullString Then
                        .AddAttachment Attachments(N)
                    End If
                End If
            Next N
        Else
            ' ensure the file exists and if so, attach it to the message.
            If Attachments <> vbNullString Then
                If Dir(CStr(Attachments), vbNormal) <> vbNullString Then
                    .AddAttachment Attachments
                End If
            End If
        End If
 
        On Error Resume Next
        Err.Clear
        ' Send the message
        .Send
        If Err.number = 0 Then
            SendEMail = True
        Else
            SendEMail = False
            Exit Function
        End If
    End With

Удалось за счет полной инициализации в самом начале конфигурации и, затем добавления Тела и атачмента сформировали правильный мультипарт и с правильной кодировкой.

удачи

Добрый день!
Подскажите, пожалуйста, как при отправке письма из Outlook сделать так, чтобы при создании письма из Ехсель с помощью VBA в письмо автоматически добавлялась подпись, та которая настроена у сотрудника для указания при создании новых сообщений. Заранее спасибо!!!

Извините, упустил этот комментарий. Тогда вопрос другой, у меня почта ходит в компании либо через NRPC либо через SMTP, в связи с тем, что под NRPC сложно что либо найти решил использовать этот вариант, потому что тут можно указать любую другую учетную запись. Есть варианты, как можно указать не текущую сессию, а другой логин и пароль и при этом шло бы сохранение сообщений в отправленных на сервере?

Здравствуйте, очень благодарен Вам за реализацию, сильно помогло в решении вопросов в работе, единственный вопрос, какую строку и куда прописать, что бы отправленные сообщения сохранялись на сервере и в дальнейшем были видны в папке "отправленные"

конечно хочу получить :)
я ж макросах как жук в апельсинах, а фантазия прёт.

Хочу макрос повесить на кнопку, что бы работал так:
1. выделяем ячейки (возможно не сплошной диапазон) с гиперссылками
2. жмем кнопку - формируется письмо с прикреплением файлов, на которые указывают гиперссылки.
3. ввод темы письма (либо автоматически формируется из имен файлов).
4. отправка.

kuda = "ivan_ivanov@mail.ru, vasya_pupkin@mail.ru"
otkogo = "mail@gmail.com"
If Send_Mail(kuda, otkogo, "проверка отправки почты", txt) Then
MsgBox smtxt & " получилась на ящики " & kuda, vbInformation
Else
MsgBox "Не удалось отправить письмо на ящики" & vbNewLine & _
kuda, vbExclamation
End If

Добрый день
Как правильно прописать в строке
If Send_Mail("ivan_ivanov@mail.ru", "vasya_pupkin@mail.ru", "проверка отправки почты", txt) Then
несколько постоянных адресатов? Например два или три.

Здравствуйте,не могу создать макрос..вроде все делаею так как написано, но не понимаю почему не происходит. и как организовать табличку с почтой и вложениями?
Если можно напишите пожалуйста полностью код который надо вставить в module1..и как организовать ячейки в книге

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

Правильно ли я понимаю, что нужно добавить такие строки в блок ????
with cdoConfig.Fields
...
.Item("http://schemas.microsoft.com/cdo/configuration/urlproxyserver").Value = "IP моего прокси"
.Item("http://schemas.microsoft.com/cdo/configuration/urlproxybypass").Value = "Пароль на прокси"
...
end with

Подскажите, как правильно видоизменить код, если выход в интернет осуществляется через прокси?

Не нашел, где можно прикрепить файл
Буду обьяснять
Выскакивает окошко Compile error: Sub or Function not defined
Строка
Sub Main() ' Пример использования функции Send_Mail выделена желтой заливкой
Словосочетание
Send_Mail выделено синей заливкой

WinXP SP3, Excel2007 может какие то отличия для такого сочетания. Попробовал все, что здесь имеется. Ругается

Уважаемый администратор, пытаюсь "прикрутить" обход прокси (http прокси без авторизации), но никак не могу понять как. Очень прошу подсказку.

Появляется ошибка "Отсутствует связь с интернетом", доступ в интернет через прокси-сервер. Как-то можно это обойти?

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

Sub Main() ' Пример использования функции Send_Mail
txt = "Это письмо сформировано макросом" & vbNewLine & _
"без использования внешних программ и подключения дополнительных библиотек"

For i = 2 To 100

If (Cells(2, i).Value) > 0 Then
MailTo = Cells(2, i).Value

If Send_Mail("MailTo", "vasya_pupkin@mail.ru", "проверка отправки почты", txt) Then
MsgBox "Письмо успешно отправлено", vbInformation
Else
MsgBox "Не удалось отправить письмо", vbExclamation
End If

Exit For

End If

Next i

End Sub

СПАСИБО за столь быстрый и исчерпывающий ответ, ошибка пропала.

У все так хорошо работает макрос, и ни у кого не возникало ошибки: Argument not optional (Error 449)??? Что это может быть???
The number and types of arguments must match those expected. This error has the following causes and solutions:
-Incorrect number of arguments.
-Omitted argument isn't optional.