XL 2016 Envoi mail Outlook depuis Excel

[Anto35200]

Bonjour,

Avec le code VBA actuel, je rencontre ces problèmes :
* dans l'objet du mail, il manque le symbole Euro après le montant
* je voudrai inclure le mot "Bonjour," au début du corps du message, puis aller à la ligne.
* dans le corps du message, il manque aussi le symbole Euro après le montant.

​

En vous remerciant de votre aide.

 

[kiki29]

Salut, va voir par ici, puisque RdBruin a supprimer les fichiers Windows sur son site.

 

[Phil69970]

Bonjour @Anto35200
Edit Bonjour @kiki29

Je te propose sur la base de ton code non testé

Edit code modifié à 17h58

Option Explicit

Private Sub CommandButton1_Click()
Dim LeMail As Variant, strBody$

Set LeMail = CreateObject("Outlook.Application") 'création d'un objet outlouk

With LeMail.CreateItem(olMailItem) ' informe le programme que nous voulons envoyer un mail.
    .Subject = "Confirmation règlement facture pour  " & Range("D7") & " €"
    .To = Range("D5") 'Destinataire du mail
    strBody = Range("D9")
    .Body = strBody & vbCrLf & Range("D11") & Range("D7") & " €"
    .Display 'afficher le mail avant de l'envoyer sinon placer send pour envoyer
End With
End Sub

Merci de ton retour

 

[Phil69970]

Re

@Anto35200

Voici une autre version qui fonctionne

Private Sub CommandButton1_Click()

Dim Ws1 As Worksheet
Dim OutApp As Object, OutMail As Object, strBody$

Set Ws1 = Worksheets("Mail")

On Error Resume Next
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With OutMail
    .To = Ws1.Range("D5").Value
    .Subject = "Confirmation règlement facture pour  " & Ws1.Range("D7") & " €"
    strBody = Range("D9")
    .Body = strBody & vbCrLf & Ws1.Range("D11") & Ws1.Range("D7") & " €"
    .Display 'afficher le mail avant de l'envoyer sinon placer send pour envoyer
    '.Send
End With

Set OutMail = Nothing: Set OutApp = Nothing
End Sub

Merci de ton retour

 

[Anto35200]

Bonjour Phil69970,

Parfait,
J'ai juste une dernière demande comment effectuer un saut de ligne après "Bonjour" de la cellule D9 ?

 

[Phil69970]

Bonjour @Anto35200

sur la version1

.Body = strBody & Chr(13) & Chr(10) & Range("D11") & Range("D7") & " €"

et sur la version 2

.Body = strBody & Chr(13) & Chr(10) & Ws1.Range("D11") & Ws1.Range("D7") & " €"

et quelle version tu as pris ?

 

[Anto35200]

J'ai essayé les 2 versions.
Ces 2 versions n'ont toujours pas de saut de ligne après "Bonjour".

Version 2 :

Private Sub CommandButton1_Click()

Dim Ws1 As Worksheet
Dim OutApp As Object, OutMail As Object, strBody$

Set Ws1 = Worksheets("Mail")

On Error Resume Next
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With OutMail
.To = Ws1.Range("D5").Value
.Subject = "Confirmation règlement facture pour " & Ws1.Range("D7") & " €"
strBody = Range("D9")
.Body = strBody & Chr(13) & Chr(10) & Ws1.Range("D11") & Ws1.Range("D7") & " €"
.Display 'afficher le mail avant de l'envoyer sinon placer send pour envoyer
'.Send
End With

Set OutMail = Nothing: Set OutApp = Nothing
End Sub

 

[Phil69970]

Re

Fais une copie d'écran de ce que tu as.

 

[Anto35200]

voici le résultat que j'ai :

 

[Phil69970]

Re

Essaye ceci pour voir et montre moi le résultat pour le message et pour le mail

msgbox strBody & Chr(13) & Chr(10) & Chr(13) & Chr(10) &Ws1.Range("D11") & Ws1.Range("D7") & " €"
.Body = strBody & Chr(13) & Chr(10) & Chr(13) & Chr(10) &Ws1.Range("D11") & Ws1.Range("D7") & " €"

 

[Anto35200]

Voici le résultat :

C'est parfait !! MERCI