Gmail - Enviados

Boa tarde!

Estou usando o código abaixo para enviar e-mails de cobrança, porém gostaria que ficasses salvo na pasta ENVIADOS do Gmail. Percebi que só fica salvo em ENVIADOS se eu colocar o email do remetente como destinatario tambem.


***************************

Set Config = New CDO.Configuration

With Config

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 'seu servidor de e-mail
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = xxx ' porta usada pelo seu servidor de e-mail
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Me.txtDeMail" 'user do servidor
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "" 'coloque a senha do seu email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

.Fields.Update

End With

If Me.txt_sit = "A VENCER" Then

Set Mens = New CDO.Message

With Mens

Set .Configuration = Config

.From = Me.txtDeMail & "@vending.com.br"
.To = Me.Para


.HTMLBody = "Prezado cliente," & "

" & "

Lembramos que seu título nº " & Me!txt_Documento & " vencerá em " & Me!txt_Data & "." & "

Em caso de dúvidas, por favor, contate-nos." & "

Se você já efetuou o pagamento, por favor, desconsidere este e-mail." & "

" & "

Atenciosamente " & "

Financeiro " & "

VENDING Comercial S/A " & "

55 11 xxxx7-3443 | PABX 55 11 xxxx7-3430 - Ramal 3443"

.Subject = "Lembrete: Vending Comercial S/A"
.Send

End With
MsgBox "Menssagem enviada com sucesso"

endif
************************

Obrigada!