CDO Message with gmail doesn't send attachment

[vufltrn]

I am trying to send an attachment using CDO message on a gmail account.

The email is sent, but it does not have the attachment.

Here is my code:
---------------------

Function fcnSendPage(strTo As String, AMS As String)
'Dim cdoMessage
 
    Set cdoMessage = CreateObject("CDO.Message")
 
    With cdoMessage.Configuration.Fields
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send using the network (SMTP over the newtork)
        .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/smtpconnectiontimeout") = 60
        .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/sendusername") = "[e-mail]"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mypassword"
        .Update
    End With
 
    With cdoMessage
        .To = strTo
        .From = "[e-mail]"
        .TextBody = "Debrief on flight " & AMS & " has been completed."
        .Send
        .AddAttachment "C:\Databases\Debrief_0808-00119.rtf"
        'MsgBox strTo & ": Debrief on flight " & AMS & " has been completed."
    End With
 
    Set cdoConfig = Nothing
    Set cdoMessage = Nothing
 
End Function

------------------------
Any thoughts?

[GazMathias]

.Send
.AddAttachment "C:\Databases\Debrief_0808-00119.rtf"
 

Would you not add the attachment before the .Send command?

.AddAttachment "C:\Databases\Debrief_0808-00119.rtf"
.Send
 

Just a thought.

[vufltrn]

Wow...Feeling pretty stupid about right now.

Worked perfectly.

Thanks for pointing out what is now very obvious :)

[GazMathias]

No problem,

Sometimes a fresh pair of eyes helps heaps, even for the blindingly obvious.

[manokbyte]

How to receive mails using CDO Message in VB.Net.

[Angel Jonathan]

Hi there!
I'm using vufltrn's code. I typed it as it is, but I'm getting an error while sending the email:
"Error de transporte en la conexion al servidor"

It's in spanish, it seems that there's some transport error with the connection to gmail's server.
Any ideas?