Outlook Ответить на все макросы с использованием шаблона

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

Sub my_test()

Dim mail 'object/mail item iterator
Dim replyall 'object which will represent the reply email

For Each mail In Outlook.Application.ActiveExplorer.Selection
    If mail.Class = olMail Then
        Set replyall = mail.replyall
        With replyall
            .Body = "My template from a oft file"
            .Display
        End With
    End If
Next

End Sub

В теле я хотел бы использовать шаблон, который у меня есть в частом файле

(in c:\mytemplate.oft).

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

Идея состоит в том, чтобы использовать этот код (если возможно) и поместить контекст основного файла шаблона (текст и таблицу) внутри этого ответного письма (вверху).


outlook excel vba oft
person H.N.    schedule 25.01.2021    source источник
comment
stackoverflow.com/a/42637793/4539709   -  person 0m3r    schedule 26.01.2021
comment
Пробовал это все еще безуспешно. Может ли кто-нибудь помочь мне здесь?   -  person H.N.    schedule 26.01.2021
comment
Учитывая stackoverflow.com/questions/65899850/, вы все еще хотите что-то от этого вопроса? Если да, отредактируйте этот вопрос.   -  person niton    schedule 26.01.2021
comment
Что ты имеешь в виду? Я все еще не мог сделать это таким образом. Я хотел бы знать, как использовать этот код, который я разместил здесь, чтобы использовать тело файла шаблона, чтобы ответить всем. Можете вы помочь мне? Другой поток - это другой код для другой попытки. Так что, если бы вы могли помочь мне здесь, я был бы признателен.   -  person H.N.    schedule 26.01.2021

Ответы (1)


arrow_upward
2
arrow_downward

Код для Outlook. Нет очевидной цели для тега Excel.

Option Explicit

Sub my_test()

Dim objItem As Object

Dim mail As MailItem
Dim replyall As MailItem

Dim templateItem As MailItem

For Each objItem In ActiveExplorer.Selection

    If objItem.Class = olMail Then
    
        Set mail = objItem
        Set replyall = mail.replyall
                
        Set templateItem = CreateItemFromTemplate("C:\template.oft")
        
        With replyall
            .HTMLBody = templateItem.HTMLBody & .HTMLBody
            .Display
        End With
        
    End If
    
Next

End Sub
person niton    schedule 26.01.2021
comment
Благодарю вас! Это сработало - person H.N.; 27.01.2021