приложение Outlook с использованием VBA - PullRequest
Новая
       9

приложение Outlook с использованием VBA

0 голосов
/ 28 мая 2018

Я пытаюсь прикрепить файл к своему внешнему виду.Однако дата файла будет меняться в зависимости от дней.Если присутствует strlocation, он будет присоединен к outlook, иначе strlocation1 должен быть присоединен к outlook.Я пытаюсь сделать это через VBA.

Может ли кто-нибудь помочь мне выполнить эту функцию?

Ниже приведен код: 

    Dim strLocation As String
    Dim strLocation1 As String
    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
        Signature = OutMail.body
    With OutMail
    .Display
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = ""
        .HTMLBody = "<BODY style=font-size:11pt;font-family:Calibri>Hello," & "<br>" & "<br>" & "some text." & "<br>" & "<br>" & "some text," & "<br>" & .HTMLBody
        strLocation = "file location" & Format(Now() - 3, "mm.dd.yy") & ".xlsx"
        strLocation1 = "file location " & Format(Now() - 1, "mm.dd.yy") & ".xlsx"
        '.Attachments.Add (strLocation) 
        'Or .Attachments.Add(strLocation1)

1 Ответ

0 голосов
/ 28 мая 2018

Спасибо всем за попытку.Я нашел это сам.Вот код, который будет выполнять мои требования.

    If strLocation1 = "" Then
        .Attachments.Add (strLocation1)
    Else
        .Attachments.Add (strLocation)
    End If
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.

Нет похожих вопросов

...