1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
| Sub MAIL()
Dim dossier As String
Dim nom As String
Dim guichet As String
Dim compte As String
Dim typologie As String
Dim montant As String
Dim devise As String
Dim nature As String
dossier = Range("C16").Value
nom = Range("C17").Value
guichet = Range("C18").Value
compte = Range("C19").Value
typologie = Range("C20").Value
montant = Range("C21").Value
devise = Range("C22").Value
nature = Range("C23").Value
objet = raison & " // Demande Produits & Services"
body = "Bonjour," & vbCrLf & vbCrLf & "Nous vous informons que votre demande, dont les caractéristiques sont reprises ci-dessous, sera prise en charge par " & agent & "." _
& vbCrLf & "Numéro de dossier : " & dossier _
& vbCrLf & "Nom client : " & nom _
& vbCrLf & "Guichet : " & guichet _
& vbCrLf & "Compte : " & compte _
& vbCrLf & "Type de recherche : " & typologie _
& vbCrLf & "Montant : " & montant _
& vbCrLf & "Devise : " & devise _
& vbCrLf & "Commentaire/précision : " & nature _
& vbCrLf & vbCrLf & "Bien cordialement," & vbCrLf & vbCrLf
Call EnvoyerMail(listeDestTo, objet, body, listeDestCC)
End Sub |
Partager