1 2 3 4 5 6 7 8 9 10 11 12 13 14
|
texte = "Bonjour," & vbCrLf
texte = texte & "Le compte de l'operation :" + sujet + " sur lequelle vous intervenez vient"
texte = texte & " d etre ouvert ou modifie. Pour avoir le detail des informations concernant"
texte = texte & " cette opération."
texte = texte & " Veuillez cliquer sur le lien ci-dessous :" & vbCrLf
texte = texte & " http://www...." & vbCrLf
texte = texte & "et vous connecter dans la rubrique intervenant." & vbCrLf
texte = texte & "La personne en charge du suivi du dossier est :" & vbCrLf
texte = texte & " " + nom + " " + prenom & vbCrLf
texte = texte & " téléphone : " + tel & vbCrLf
texte = texte & " e-mail : " + mail
DoCmd.SendObject , , acFormatTXT, str, , , "Création ou modification de l'opération numéro: " & CStr(num_op) & " : " & sujet, texte |
Partager