GetInspector not working any more
This code used to work fine, producing e-mail messages complete with my signature.
Now, after current Windows 10 updates, the signature is missing.
Does anyone know why?
I'm using Outlook 2016, by the way.
[code}
Dim oEmail
Set oEmail = oApp.CreateItem(0)
With oEmail
.BodyFormat = 2 'HTML
.Recipients.Add (oUser.get("mail"))
.Subject = "AD Password Expiration Notice"
.Importance = 2 '0 = Low, 1 = Normal, 2 = High
.ReadReceiptRequested = False
ret = .GetInspector ' Add Signature
.HTMLBody = Replace(.HTMLBody, "<!-- Converted from text/plain format -->", strBody)
.display 'Show the email message and allow for editing before sending
End With
{end code}
Re: GetInspector not working any more
Did you check to make sure that your signature has not gone missing after the update?
Possibly useful links:
https://www.rondebruin.nl/win/s1/outlook/signature.htm
https://www.extendoffice.com/documen...signature.html
Re: GetInspector not working any more
did you try repairing /reinstalling outlook?