To add the signature manually, select Signature from the Message menu and then pick the signature you just created. All future messages will have the signature added automatically. ObjMsg.HTMLBody = Replace(objMsg.HTMLBody, strAtt, "cid:" & EmbAtt. Youll have to add the signature manually to this one message. If InStr(1, objMsg.HTMLBody, strAtt, vbTextCompare) > 0 Then
Attachments.Add(strSigFilePath & Replace(strAtt, "/", "\"))
HTMLBody = "" & strBuffer
SplitAtt = Split(strBuffer, "src=""",, vbTextCompare) Set objSignatureFile = objFSO.OpenTextFile(strSigFilePath & "Oliv.htm") StrSigFilePath = enviro & "\Microsoft\Signatures\" Public Sub CreateMessageSignatureWithImage()ĭim enviro, objFSO, strSigFilePath, objSignatureFileĭim strAtt, SplitAtt, EmbAtt As Attachment It is useful if the signature contains images. In fact there is no 'Signatures' folder in the UserAppdataRoamingMicro soft directory for said user. When I go to Outlook 2010 Options to create a new signature I click the new button, name the signature and click OK. The behavior is different if we run the macro from Excel, in this case we can just use DoDefaultAction, but not when we run it from OUTLOOK ! However there is one user in the office who cannot. Sample macros that insert stationary files into new messages are atĬreate a New Message using an HTML File or Stationeryįirst: You will need macro security set to low during testing. Myreply.HTMLBody = " " & strBuffer & myreply.HTMLBody Set oBookmark = olDocument.Bookmarks("_MailAutoSig") You will need to set a reference to the Microsoft Word Object Library in Tools, References. You will be able to insert another signature manually.
After using this macro, the signature bookmark is removed and you will not be able to change the signature automatically. This macro removes the default signature and adds a new one. If you are creating a new message or not keeping the message body, you can insert an HTML signature directly into. If you need to change a signature in a reply, you will need to remove the signature that was added automatically and insert a new one. Set objMsg = Application.CreateItem(olMailItem)
Set objSignatureFile = objFSO.OpenTextFile(strSigFilePath & "My Sig.htm") ' Edit the signature file name on the following line From there, find the Include group and click Signature, and then click Signatures.You will see an Email Signatures tab. Set objFSO = CreateObject("Scripting.FileSystemObject") Creating an email signature in Outlook 2010 Open a new message and locate the Message tab.