1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Private Sub CMD_Email_Revendeur_associe_Click()
Dim textemsg1 As String
Dim textemsg2 As String
textemsg1 = "Bonjour," & vbCrLf & vbCrLf & "blabla1"
textemsg2 = "blabla2"
DoCmd.SendObject , , acFormatHTML, Nz([Revendeur_Email], ""), , , "titre du message", Nz(textemsg1, "") & _
vbCrLf & vbCrLf & Nz([Sommaire_Titre], "") & " " & Nz([Sommaire_Nom], "") & " " & Nz([Sommaire_Prenom], "") & _
vbCrLf & vbCrLf & "Adresse:" & _
vbCrLf & Nz([Sommaire_Adresse], "") & _
vbCrLf & Nz([Sommaire_CP], "") & " " & Nz([Sommaire_Ville], "") & _
vbCrLf & vbCrLf & "Téléphone:" & " " & Nz([Sommaire_tel], "") & _
vbCrLf & "Télécopie:" & " " & Nz([Sommaire_fax], "") & _
vbCrLf & vbCrLf & "Spécialité:" & " " & Nz([Sommaire_Specialite], "") & _
vbCrLf & "N° Adeli:" & " " & Nz([Sommaire_Num_ADELI], "") & _
vbCrLf & vbCrLf & "----------------------------Besoins du client-----------------------------" & _
vbCrLf & Nz([Revendeur_associe_commentaire], "") & _
vbCrLf & "--------------------------------------------------------------------------" & _
vbCrLf & vbCrLf & Nz(textemsg2, "") & vbCrLf, True
End Sub |
Partager