C
Claude
Guest
Bonjour
J'ai une macro pour envoyer un email. J'aimerais la configurer pour que mon email parte d'une adresse email précise. J'utilise le "mailto" pour mon destinataire mais j'aimerais aussi attribuer une adresse de dépard.Un genre de "From" .
Voici la macro que j'utilise
Sub SendMail()
Dim addressString As String
addressString = "mailto:" & Range("c12") & "?subject=" & "CONFIRMATION" & "&body=" & " Bonjour," & Chr$(13) & " Voici la confirmation de votre réservation au nom de " & Range("c5") & ". Votre arrivée est prévue pour le " & Range("c13") & " et le départ pour le " & Range("facture!k23") & ". Le coût total est de " & Range("facture!w33") & ".00$.Votre numéro de confirmation est le " & Range("c3") & ". Espérant le tout conforme, nous vous remercions de votre encouragement." & "Claude Têtu"
ActiveWorkbook.FollowHyperlink Address:=addressString
End Sub
MERCI À L'AVANCE
J'ai une macro pour envoyer un email. J'aimerais la configurer pour que mon email parte d'une adresse email précise. J'utilise le "mailto" pour mon destinataire mais j'aimerais aussi attribuer une adresse de dépard.Un genre de "From" .
Voici la macro que j'utilise
Sub SendMail()
Dim addressString As String
addressString = "mailto:" & Range("c12") & "?subject=" & "CONFIRMATION" & "&body=" & " Bonjour," & Chr$(13) & " Voici la confirmation de votre réservation au nom de " & Range("c5") & ". Votre arrivée est prévue pour le " & Range("c13") & " et le départ pour le " & Range("facture!k23") & ". Le coût total est de " & Range("facture!w33") & ".00$.Votre numéro de confirmation est le " & Range("c3") & ". Espérant le tout conforme, nous vous remercions de votre encouragement." & "Claude Têtu"
ActiveWorkbook.FollowHyperlink Address:=addressString
End Sub
MERCI À L'AVANCE