Создание электронной почты Thunderbird из макроса Excel

Я написал макрос VB в Excel, который создает и отправляет электронное письмо с помощью MS Outlook.

Поэтому я создаю Outlook.Application, а затем создаю Outlook.Application.CreateItem(olMailItem).

Все это работает фантастически :) Но теперь я понял, что на машине, на которой я хотел развернуть это, нет Outlook, и получение лицензионной копии Outlook не вариант. Итак, как я могу вместо этого отправить электронное письмо через Thunderbird?

Я могу запустить приложение, используя это:

Dim RetVal
RetVal = Shell("C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe", 1)

Но я не уверен, как я могу создать для него почтовый элемент. Для этого не нужно специально использовать Thunderbird, я просто выбрал его, потому что это был бесплатный почтовый клиент.


email excel vba thunderbird
person user1934821    schedule 24.01.2013    source источник
comment
CDO не вариант? rondebruin.nl/cdo.htm   -  person Siddharth Rout    schedule 24.01.2013
comment
да это работает отлично! Спасибо   -  person user1934821    schedule 24.01.2013

Ответы (1)


arrow_upward
1
arrow_downward

CDO не вариант? http://www.rondebruin.nl/win/s1/cdo.htm - Сиддхарт Раут

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")

    '    iConf.Load -1    ' CDO Source Defaults
    '    Set Flds = iConf.Fields
    '    With Flds
    '        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    '        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
    '                       = "Fill in your SMTP server here"
    '        .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 = ""
        .CC = ""
        .BCC = ""
        .From = ""
        .Subject = "New figures"
        .TextBody = strbody
        .Send
    End With

End Sub

Примечание. Если вы получаете эту ошибку: транспорту не удалось подключиться к серверу, попробуйте изменить порт SMTP с 25 на 465.

person Community    schedule 02.03.2015