[Resolvido]Email automático utilizando GMAIL

Boa tarde!

Tenho um BD de Cobranças que envia e-mails automáticos do Outlook, porém agora mudamos para o Gmail.
Utilizava a função do JPaulo abaixo para me conectar ao outlook.

Alguém sabe como fazer isso no caso do Gmail?

Função
***********
' JPaulo ® 2008
Public Function InitializeOutlook() As Boolean
On Error GoTo Init_err
Set gOLApp = CreateObject("Outlook.application")
Set gOLNameSpace = gOLApp.GetNamespace("MAPI")
init_Bye:
InitializeOutlook = True
Exit Function


Sub
*********

Dim origem As String, Caminho(4) As String, pula As String
Dim NumDoc As String
Dim Data As String


Init_err:
InitializeOutlook = False

Inicio:

Call InitializeOutlook

If Me.txt_sit = "A VENCER" Then

Set objNewMail = gOLApp.CreateItem(olMailItem)

With objNewMail

 .To = Me.txtEnder

.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 " & "

Comercial S/A " & "

55 11 888-8888| PABX 55 11 8888-8888- Ramal 3443"

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

End With

Else

Set objNewMail = gOLApp.CreateItem(olMailItem)

With objNewMail

 .To = Me.txtEnder

.HTMLBody = "Prezado cliente," & "

" & "

Não consta em nossos registros o pagamento do documento nº  " & Me!txt_Documento & " vencido em " & Me!txt_Data & "." & "

Aguardamos seu contato para tratarmos sobre." & "

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

" & "

Atenciosamente " & "

Financeiro " & "




.Subject = "Aviso:  Comercial S/A"
.Send

End With


MsgBox "E-mail enviado com sucesso!!!", vbInformation

End If

End If


End Sub

********************
Obrigada

Janette

Olá Janette,
Por mudar o ISP (provedor) não significa que não possa usar o Outlook configurado com o Gmail.
No entanto se não que usar o cliente de email Outlook, pode enviar via CDO automáticamente.
O fórum está recheado de exemplos, olhe este:
https://www.maximoaccess.com/t949-resolvidoenvio-de-email-sem-outlook

Abraço

este é uma boa ajuda mesmo! eu também tive problemas com o gmail mas resolvi facilmente assim!

Obrigada pessoal!

Acessei o link do amigo ahteixeira , fiz as adaptações e consegui resolver.


Obrigada!

Olá a todos,
Janette, obrigado pelo retorno.
O fórum agradece.
Abraço