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

Есть много причин для отправки почты из макроса Excel. Например, когда сумма продаж достигает определенного значения, менеджер может захотеть узнать об этом немедленно. Хотя существует несколько способов отправки электронной почты из макроса Excel, наиболее часто используемый метод — использование Outlook. Это проблема, если у вас не установлен Outlook на компьютере, который вы используете для открытия электронной таблицы. В этом случае вместо этого вы можете использовать CDO, что означает объект данных для совместной работы.

Шаг 1

Нажмите «Alt» и «F11» одновременно в электронной таблице Excel, чтобы открыть встроенный редактор Visual Basic.

Шаг 2

Скопируйте и вставьте следующий код в пустое окно кода:Sub CDO_Mail_Small_Text() Dim iMsg As Object Dim iConf As Object Dim strbody As String ' Dim Flds As Variant

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

.Item("http://schemas.Microsoft.com/cdo/configuration/sendusing") =2 ' .Item("http://schemas.Microsoft.com/cdo/configuration/smtpserver") _ ' ="Заполнить на вашем SMTP-сервере здесь" ' .Item("http://schemas.Microsoft.com/cdo/configuration/smtpserverport") =25 ' .Update ' End With

strbody = "Hi there" & vbNewLine & vbNewLine & _
          "This is line 1" & vbNewLine & _
          "This is line 2" & vbNewLine & _
          "This is line 3" & vbNewLine & _
          "This is line 4"

With iMsg
    Set .Configuration = iConf
    .To = "[email protected]"
    .CC = ""
    .BCC = ""
    .From = """Person"" < [email protected] >"
    .Subject = "Subject Line"
    .TextBody = strbody
    .Send
End With

Конец подписки

Шаг 3

Замените «Укажите здесь свой SMTP-сервер» адресом SMTP-сервера, который вы хотите использовать.

Шаг 4

Нажмите "F5", чтобы запустить макрос и отправить сообщение электронной почты.

Совет

Если у вас нет собственного, Google предоставляет SMTP-сервер (http://gmail.google.com), которым вы можете пользоваться бесплатно.