View Single Post
 
Old 12-28-2016, 12:44 PM
dwirony dwirony is offline Windows 7 64bit Office 2003
Advanced Beginner
 
Join Date: Oct 2016
Posts: 49
dwirony will become famous soon enough
Default Word VBA code not generating entire signature

Hello all,

I've looked at all kinds of threads on google but I cannot find one that addresses my problem clearly. My code generates an email from Microsoft Word and attaches the document, puts in a subject, body, all of that no problem. However, I'm trying to get outlook to put in my default signature. The bottom part of my code does that, however it doesn't completely generate my outlook signature's picture and leaves some jumbled up text instead. Could anyone help me out? Thanks in advance:

*Please note, I already have the variables in the body defined and given values, I just left it out because it's not important to what's causing this issue*

Code:
Dim OApp As Object, OMail As Object, signature As String
Set OApp = CreateObject("Outlook.Application")
Set OMail = OApp.CreateItem(0)
    With OMail
    .Display
    End With
        signature = OMail.body
    With OMail
    .to = strTo
        .Subject = strSubject
        .body = strBody1 + strBody2 + strBody3 + strBody7 + strBody8 + strBody4 + strBody5 + strBody6 & vbNewLine & signature
        .attachments.Add strAtt
        '.send
        .Display
    End With
Set OMail = Nothing
Set OApp = Nothing
Reply With Quote