Страницы: 1
RSS
Отправка письма заранее созданному контакту Outlook VBA
 
Добрый день, подскажите пожалуйста, как отправить письмо по outlook через vba, заранее созданному контакту. Имеется в контактах outlook контакт с массивом адресов, как в строку ".To" сказать взять этот контакт?(как в примере снизу) Нашел статью по этому поводу для 2003 экселя, но мой код что писал, не могу адаптировать под него, да и разобраться что там написано.(статья нечитаемая)

Код
Private Sub Send_Mail()
    Dim objOutlookApp As Object, objMail As Object

Application.ScreenUpdating = False

    On Error Resume Next
    Set objOutlookApp = CreateObject("Outlook.Application")
    objOutlookApp.Session.Logon
    Set objMail = objOutlookApp.CreateItem(0)   'создаем новое сообщение
    If Err.Number <> 0 Then Set objOutlookApp = Nothing: Set objMail = Nothing: Exit Sub
    On Error GoTo 0
    'создаем сообщение
    With objMail
        .To = "Ответственные"
        .CC = _
        "Ssdasf@mail.ru"
        .Subject = _
        "Инфо "
       .BodyFormat = 2  'olFormatHTML - формат HTML
        .HTMLBody = _
        "Lобрый день. <br>."
        .display 'отображаем сообщение
    End With

Set objOutlookApp = Nothing: Set objMail = Nothing
Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub

Посоветуйте информацию.
Изменено: Argo9 - 14.11.2019 11:40:48
 
Здесь не техподдержка!
Цитата
ЗАПРЕЩЕНО:
3.6. Многократно поднимать тему, если на поставленный вопрос ответ не был получен своевременно. В случае многократного поднятия темы сообщениями типа "up", это может быть расценено как флуд.
Будете нарушать, закрою.
 
может подойдут Объекты Outlook.MailItem, Outlook.ContactItem  ?
Просто они для 2003 Excel как я понял
 
Цитата
Argo9 написал:
Объекты Outlook.MailItem, Outlook.ContactItem
Интересно, что яндекс или гугл выдаст.
Наверное это
Код
    Set olApp = CreateObject("Outlook.Application")
    Set olNmspc = olApp.GetNamespace("MAPI")
    Set oLst = olNmspc.GetDefaultFolder(olFolderContacts)
    For Each Item In oLst.Items
        FullName = Item.FullName
        Email1Address = Item.Email1Address
    Next
Страницы: 1
Наверх