CDO.Message Signature

[kdbailey]

I'm in the midst of setting up a program to email out to miscellaneous recipients and am looking how to attach a signature through G-Mail. I am either open to attaching a signature previously created within the gmail account, or to create one using VB. Currently the gmail account has a signature made, but doesn't attach with my current code.

Does anybody have any experience with this? Below is my current code, the emails currently send out fine.

Current code:

Function dealeremail(whichemail As String)Dim rsemail As Recordset, rsclaim As Recordset, subj As String, numparts As Integer, parts As String, partfield As String, qfield As String
Dim fsfile As File, fso As FileSystemObject, srcfolder As Folder, filenm As String, ibp As CDO.IBodyPart

Set cdomsg = CreateObject("CDO.message")


    With cdomsg.Configuration.Fields
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 587
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxx@gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxx"
        .Update
    End With

    With cdomsg        
        '.To = "xxx@xxx.com"
        .To = rsemail.Fields("Email")
        .BCC = "xxx@xxx.com, xxx@xxx.com"
        .From = "xxx@gmail.com"
        .Subject = subj
        .TextBody = msg
        Set fso = New FileSystemObject
        Set srcfolder = fso.GetFolder("S:\Shared\Warranty Returns\WRA Data Storage\Backups\Dealers\" & rsclaim.Fields("Dealer Number") & "\" & rsclaim.Fields("Serial Number") & " " & rsclaim.Fields("Claim Number") & "\Initial\")
        If srcfolder.Files.Count > 0 Then
            For Each fsfile In srcfolder.Files
                If InStr(1, fsfile.Name, "Thumbs") = 0 Then Set ibp = .addattachment(fsfile.Path)
            Next
        Else
            GoTo attacherror
        End If
        Set fso = Nothing
        Set srcfolder = Nothing
        .Send
    End With
skip:    
    Set rsemail = Nothing
    Set rsclaim = Nothing
    Set cdomsg = Nothing


End If


Exit Function


parterror:


MsgBox "No parts", vbOKOnly


Set rsemail = Nothing
Set rsclaim = Nothing
Set cdomsg = Nothing


Exit Function


attacherror:


MsgBox "Attachment error.", vbOKOnly


Set rsemail = Nothing
Set rsclaim = Nothing
Set cdomsg = Nothing


End Function

[June7]

The 'signature' could just be more text tacked onto the end of the message body.

That is probably easier than trying to pull signature from gmail.

[kdbailey]

I am guessing that I would likely have to set it up as an HTML body then?

I am quite unfamiliar with HTML and don't have much of a clue how to set up fonts and images. Could you assist with this?

[June7]

I guess if you want the signature to have special fonts and links and embed image, need HTML. It's not difficult. Here is a good site to learn HTML code tags. http://www.w3schools.com/html/default.asp

Examples:
http://answers.microsoft.com/en-us/o...c-68b599b31bf5
http://answers.microsoft.com/en-us/o...f-eb60e6b65aa4

[kdbailey]

Thanks for the link! Quick question though, how do you just alter the color of one word. It shows how to change the color of an entire paragraph, but I am not seeing where you can change each word separately.

I keep adjusting this line to try and change the color. I tried using "span" as well, that didn't work. Also tried using "color:darkred", no luck.

parts = parts & "<p><b><font style:" & Chr(34) & "color:#600000" & Chr(34) & ">" & rsclaim.Fields(partfield) & "</font></b> (Quantity: <b>" & rsclaim.Fields(qfield) & "</b>)</p>"

[June7]

Maybe use = instead of :? I've never seen : used.

AFAIK, style is a tag, not a property. http://www.w3schools.com/tags/tag_style.asp

Maybe:

parts = parts & "<p><b><font " & Chr(34) & "color=#600000" & Chr(34) & ">" & rsclaim.Fields(partfield) & "</font></b> (Quantity: <b>" & rsclaim.Fields(qfield) & "</b>)</p>"

[kdbailey]

I found that error actually myself, I'm experimenting with other properties now. Thanks for the help!

This is what is working for me...

parts = parts & "<p><b><font style=" & Chr(34) & "color:#600000" & Chr(34) & ">" & rsclaim.Fields(partfield) & "</font></b> (Quantity: <b><font style=" & Chr(34) & "color:#600000" & Chr(34) & ">" & rsclaim.Fields(qfield) & "</font></b>)</p>"