Envoi de mail via gmail

[ricoco]

Bonjour,

UN très grand merci d'avance de votre aide

J'ai cette macro qui me permet d'envoyer des mails via ma boite gmail...
Tout marche correctement....
Mais mon soucis
1-Je souhaite au lieu d'un fichier excel plutôt un fichier au format pdf
2-Et dans la partie "message" du mail pouvoir insérer un photo en haut juste au dessus du message (comme un logo par exemple)
voila le code:

Public Sub SendMailCDO()

Dim D As String
Dim E As String
Dim S As String
Dim T As String
Dim pj As String

D = Range("B13").Value
E = Range("B22").Value
S = Range("B2").Value
T = Range("B5").Value & Chr(10) & Chr(10) & Range("B6").Value & Range("B7").Value & Range("B10").Value
pj = Range("B20").Value

Dim Cdo_Message As New CDO.Message
Set Cdo_Message.Configuration = GetSMTPServerConfig()
With Cdo_Message
.To = D
.From = E
.Subject = S
.TextBody = T
If Not IsMissing(pj) Then
.AddAttachment pj
End If

.Send
End With

success = MsgBox(nbmessages & " envoyés avec succès !", vbInformation)

Exit Sub
SMTPSendMail_Err:
'Gestion des erreurs
tmp = MsgBox("Erreur lors de l'envoi de votre message." & Chr(10) & "Détails : " & Err.Description, vbCritical)

End Sub

Function GetSMTPServerConfig() As Object

Dim Cdo_Config As New CDO.Configuration
Dim Cdo_Fields As Object

Set Cdo_Fields = Cdo_Config.Fields
With Cdo_Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "smtp.gmail.com"
.Item(cdoSMTPServerPort) = 465
.Item(cdoSendUserName) = InputBox("Veuillez saisir votre identifiant")
.Item(cdoSendPassword) = InputBox("Veuillez saisir votre mot de passe gmail")
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSMTPUseSSL) = True
.Update
End With
Set GetSMTPServerConfig = Cdo_Config
Set Cdo_Config = Nothing
Set Cdo_Fields = Nothing
End Function