email

[Claude]

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

 

[david2]

Hello,

essaie d'integrer le complément winsock.ocx a un userform:

tu aura ainsi les commandes suivantes:

Winsock1.SendData "HELO Serveur" & vbCrLf
Winsock1.SendData "MAIL FROM: <"MailExpediteur">" & vbCrLf
Winsock1.SendData "RCPT TO: <"MailDestinataire">" & vbCrLf
Winsock1.SendData "DATA" & vbCrLf
Winsock1.SendData "SUBJECT:" & "MESSAGE" & vbLf
Winsock1.SendData "QUIT" & vbCrLf

NB: info récupérer sur www.vbfrance.com

 

[claude]

Merci David 2,
mais je travaille encore sur windowa 98 avec office 97 et je crois que ta macro ne fonctionne pas.