Como adicionar assinatura padrão no Outlook
Estou escrevendo um script VBA no Access que cria e preenche automaticamente algumas dezenas de emails. Tem sido uma codificação suave até agora, mas sou novo no Outlook. Depois de criar o objeto mailitem,como adiciono a assinatura padrão ao email?
Essa seria a assinatura padrão adicionada automaticamente ao criar um novo emai
Ideally, eu gostaria de usar apenasObjMail.GetDefaultSignature
, mas não consigo encontrar nada parecid
Atualmente, estou usando a função abaixo (encontradaem outro luga na internet) e referenciar o caminho exato e o nome do arquivo do arquivo htm. Mas isso será usado por várias pessoas e elas podem ter um nome diferente para o arquivo de assinatura htm padrão. Portanto, isso funciona, mas não é o ideal:
Function GetBoiler(ByVal sFile As String) As String
'Dick Kusleika
Dim fso As Object
Dim ts As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
GetBoiler = ts.readall
ts.Close
End Function
(Chamado comgetboiler(SigString = "C:\Users\" & Environ("username") & "\AppData\Roaming\Microsoft\Signatures\Mysig.txt")
)
Graças ao JP (ver comentários), percebo que a assinatura padrão aparece primeiro, mas desaparece quando uso HTMLBody para adicionar uma tabela ao email. Acho que minha pergunta agora é: como exibir a assinatura padrão e ainda exibir uma tabela html?
Sub X()
Dim OlApp As Outlook.Application
Dim ObjMail As Outlook.MailItem
Set OlApp = Outlook.Application
Set ObjMail = OlApp.CreateItem(olMailItem)
ObjMail.BodyFormat = olFormatHTML
ObjMail.Subject = "Subject goes here"
ObjMail.Recipients.Add "Email goes here"
ObjMail.HTMLBody = ObjMail.Body & "HTML Table goes here"
ObjMail.Display
End Sub