Как добавить подпись в Excel

Question

У меня есть электронная таблица Excel с документацией о поставщиках с датами истечения срока действия. Я создал макрос VBA, который, когда я выбираю (Ctrl + M), отправит электронное письмо с запросом обновлений для конкретных документов на основе дат истечения срока действия.

Все красиво и работает как шарм.

Мой вопрос: как включить подпись Outlook в конце письма? Я бы хотел, чтобы это было основано на том, кто открыт в электронной таблице, чтобы, если Чарли Браун хочет вызвать электронное письмо, он будет включать подпись Чарли Брауна в конце.

Это уже автоматически заполняет Чарли Брауна как Отправителя, поэтому я должен быть в состоянии сделать это.

Любые предложения?

Answer 1

Ниже приведен пример

Option Explicit 
Sub AddSignature() 
    Dim olApp As Object 
    Dim olMail As Object 

    Set olApp = CreateObject("Outlook.Application") 
    Set olMail = olApp.CreateItem(0) 

    With olMail 
     .Display olMail.HTMLbody '<- adding default signature 
    End With 

    With olMail 
     .To = "" 
     .CC = "" 
     .BCC = "" 
     .Subject = "" 
     .HTMLbody = "Hello." & "<br>" & .HTMLbody '<- adding default signature 
     .Display 
'  .Send 
    End With 

    Set olMail = Nothing 
    Set olApp = Nothing 
    End Sub 

also see Insert Signature in mail От Рон де Bruin

Answer 2

Если вы используете Excel, чтобы захватить новую подпись почты предмет вы получите флаг для подозрительной активности, что пользователь может подтвердить

Dim OApp, OMail As Object 
Set OApp = CreateObject("Outlook.Application") 
Set OMail = OApp.CreateItem(0) 

Dim sig As String 
sig = OMail.HTMLbody 

Если вы знаете имя подписи вы можете пойти просмотреть для него

Dir (CStr(Environ$("userprofile")) & "\appdata\roaming\microsoft\signatures\")