Question

我想使用以下代码从模板创建新电子邮件。

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

我第一次调用它时效果很好。但是，当我第二次调用它时，它会给我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

Answer 1

“ \ firefighter.eau \ Work \ CCL1 \ MTMA \ Groupe Petty Officer \ PEOPLE \ MAILS \ demande d'attestation de recyclage.msg”

您需要在本地下载/复制模板，然后使用本地文件作为模板。 Outlook不完全支持网络路径。

有关更多信息，请参见How To: Create a new Outlook message based on a template。

无法两次创建ItemFromTemplate

1 个答案: