Evoi mail via Google Mail

Bonjour

J'arrive au bout de mon projet et je souhaite maintenant apporter un petit plus en offrant la possibilité d'envoyer un mail pour informer différents destinataires de la mise à jour de mon fichier Excel.

J'ai récupéré le code ci dessous, qui fonctionne, mais que j'aimerais modifier pour :

• Ne pas envoyer le fichier, mais juste qq cellules d'un onglet (comme décrit dans le code)
• et surtout passer par Google mail, messagerie imposée dans ma société.

Merci d'avance

Frederic

Private Sub CmdMail_Click()

Application.DisplayAlerts = False
ActiveWorkbook.SendMail Recipients:="titi@free.fr", _
Subject:=Range("Base!A3").Value & " " & Range("Base!B3").Value, _
ReturnReceipt:=True

End Sub

Bonjour,

Par gmail c'est possible mais un peu spécial. En utilisant les fonctions CDO avec :

serveur smtp : SMTP.gmail.com
smtpserverport = 465

et :

.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

pour travailler en SSL

eric

Bonjour Eric et merci pour ta réponse rapide.

Je vais tester çà dans les jours qui viennent, mais il est très probable que mes faibles connaissances ne permettent pas d'adapter ce code à mon besoin. Mais bon, vais essayer quand même, sinon pas d'intérêt ni de progrès possible.

Je me permettrai de te solliciter à nouveau si besoin.

Merci encore

Frédéric