Не могу дважды создатьItemFromTemplate - PullRequest
Новая
       17

Не могу дважды создатьItemFromTemplate

0 голосов
/ 27 июня 2019

Я хочу создать новое письмо из шаблона, используя следующий код. 

Sub CreateEmailfromTemplate(ByVal email As String, ByVal pathToTemplate As String)
    Dim obApp As Object
    Dim NewMail As Outlook.MailItem

    Set obApp = Outlook.Application
    'Change the template file folder path according to your case
    Set NewMail = obApp.CreateItemFromTemplate(pathToTemplate)
    With NewMail
        .To = email
    End With
    NewMail.Display

    Set obApp = Nothing
    Set NewMail = Nothing
End Sub

Это работает очень хорошо, когда я звоню в первый раз.Тем не менее, когда я называю это во второй раз, это дает мне bacc Runtime Error 462: Remote server does not exist or is not available

путь, который я тоже называю, - это что-то вроде "\\firefighter.eau\Work\CCL1\MTMA\Groupe Petty Officer\PEOPLE\MAILS\Demande d'attestation de recyclage.msg" : String : ModuleDeclarations.CreateEmail

1 Ответ

0 голосов
/ 27 июня 2019

"\ firefighter.eau \ Work \ CCL1 \ MTMA \ Groupe Petty Officer \ PEOPLE \ MAILS \ Demande d'attestation de recyclage.msg"

Вам необходимо скачать / скопироватьшаблон локально, а затем использовать локальный файл в качестве шаблона.Сетевой путь не полностью поддерживается Outlook.

См. Как: создать новое сообщение Outlook на основе шаблона для получения дополнительной информации.

...