Envoi mail automatique lotus note BUG

cs_DESIRLES Messages postés 3 Date d'inscription mercredi 30 décembre 2009 Statut Membre Dernière intervention 9 mars 2011 - 8 mars 2011 à 10:44
cs_DESIRLES Messages postés 3 Date d'inscription mercredi 30 décembre 2009 Statut Membre Dernière intervention 9 mars 2011 - 9 mars 2011 à 13:46
Bonjour,

J'ai un code vba pour l'envoi auto de mail via lotus :

Sub EnvoiUnMail()

Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("J4") ' adresse mail du destinataire
Subj = Range("J5") ' sujet du message
Msg = Msg & Range("J6") + Chr(13) ' corps du message
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg + Chr(13)
ActiveWorkbook.FollowHyperlink Address:=URLto

End Sub

Mais quand je lance ma macro, j'ai un problème dans le mail qui se créé ... j'ai le SUJET et le CORPS DU MESSAGE dans la partie SUJET

URGENT - Délai dépassé "SOCIETAIRE"[/b[b]]&body=Bonjour, je vous informe que cette réclamation est en délai dépassé (10 jours). Souhaitez-vous un DELAI NEGOCIE [color =red]/color

En vous remerciant d'avance pour votre précieuse aide car je ne sais plus trop quoi faire .

Bonne journée

1 réponse

cs_DESIRLES Messages postés 3 Date d'inscription mercredi 30 décembre 2009 Statut Membre Dernière intervention 9 mars 2011
9 mars 2011 à 13:46
Bonjour,

Personne ne peux m'aider ???
0
Rejoignez-nous