Messagerie

[Marsu23]

Bonjour,

Est ce que l'un d'entre vous connait la condition qui me permet de sauter une ligne dans le contenu d'un message outlook, je m'explique, voici ma macro :

Sub ControleEtMail()
Dim Val As Range
Dim Liste As String
Dim URLto As String

If Date + 20 > Range('F2') Then
For Each Val In Range('C2:C' & Range('B65536').End(xlUp).Row)
If Val = 'L' Then Liste = Liste & Val.Offset(0, -1) & '; '
Next Val

URLto = 'mailto:' & Liste & '?subject=' & 'Changement des cartouches filtrantes ' _
& '&body=' & ' Bonjour , ' & vbLf & 'Veuillez appeler Mr dupont pour effectuer le changement de vos cartouches'
ActiveWorkbook.FollowHyperlink Address:=URLto
End If

End Sub

Je n'arive pas à sauter une ligne entre Bonjour et le reste du message

Merci d'avance,
Marsu23

 

[Marsu23]

Bonjour Jmps,

J'ai essayer ce que tu m'a dit mais ça ne fonctionne pas, je n'ai toujours pas de retrait entre 'bonjour' et le reste du message
As tu une autre suggestion ?
Merci d'avance,
Marsu23

 

[Marsu23]

Salut,

La condition que tu as rajouter ne fonctionne pas, j'ai pourtant regarder si les parentheses été correct. l'action vbLf ne fonctionne pas. As tu une autre idée svp?
merci d'avance
Marsu23

 

[Marsu23]

Salut Jmps,

Je t'envoie le fichier test.merci d'avance

[file name=envoimails.zip size=11595]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/envoimails.zip[/file]

 

[myDearFriend!]

Bonjour Marsu23, jmps,

Pour ma part, je n'ai pas regardé ton fichier, mais je crois que tu peux essayer comme ça :

URLto = 'mailto:' & Liste & '?subject=' & 'Changement des cartouches filtrantes ' _
      & '&body=Bonjour,%0A%0AVeuillez appeler Mr dupont pour effectuer le changement de vos cartouches'
ActiveWorkbook.FollowHyperlink Address:=URLto

Cordialement,

 

[Marsu23]

Salut MydearFriend,

J'ai essayer avec %0A%0A et cela ne fonctionne pas car tous le texte reste quand même accrocher.

Peux-tu jeter un oeil sur mon file que j'ai envoyer précédement.

Merci d'avance,
Marsu23

 

[myDearFriend!]

Re,

Je viens d'essayer (ton fichier ci-joint modifié), ça fonctionne chez moi.

Cordialement, [file name=envoimails_20060225161249.zip size=10501]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/envoimails_20060225161249.zip[/file]

 

[MichelXld]

bonjour à tous

je viens de tester la solution proposée par Didier et cela fonctionne tres bien chez moi(Excel2002)

Didier , bravo pour le %0A%0A que je ne connaisais pas


bonne apres midi
MichelXld

 

[myDearFriend!]

Salut MichelXld, content de te croiser.

Avec une question de ce type, j'étais sûr que tu n'étais pas loin...

Oui, je m'étais moi-même confronté à ce problème il y a quelque temps, et j'avais trouvé cette solution sur le Net.

Pour notre ami Marsu23, peut-être s'agit-il d'un paramètrage Outlook ? J'ai pourtant testé en prédéfinissant mes messages en HTML, RTF ou même Texte Brut, ça semble fonctionner également...

A bientôt.

 

[Marsu23]

Salut MydearFriend et MichelXld,

Je posséde actuellemnt excel 2000 pro, et vraisemblabement ça ne foctionne pas chez moi, faut t-il faire une modifie ou ça ne marchera jamais ?

Marsu23

 

[Visiteur]

ouh ouh ouh que de mâles que de mâles

pour unptit message!!!

mais pour moi je peux vous rassurer

pas de paramétrage!!! Une seule address

visitmehot!!hot!!

et retrouver le meilleur, l'excusif, les archives !!!!

et là messieurs une petite music groove

et fermez les yeux (avant d'avoir lu le post of course!!!

give me a raison to love you!!!!!!!!!!!!!!!!

I just want to dream

……………………………………………to you!!!!

 

[MichelXld]

rebonjour

tu peux tester cet autre exemple


Sub ControleEtMail()
Dim Valeur As Range
Dim Liste As String, URLto As String

If Date + 20 > Range('F2') Then

For Each Valeur In Range('C2:C' & Range('B65536').End(xlUp).Row)
If Valeur = 'L' Then Liste = Liste & Valeur.Offset(0, -1) & '; '
Next Valeur

Shell 'C:\\\\\\\\Program Files\\\\\\\\Outlook Express\\\\\\\\msimn.exe ' & _
'/mailurl:mailto:' & Liste & '?subject=' & 'Changement des cartouches filtrantes ' _
& '&Body=' & 'Bonjour , ' & vbCrLf & vbCrLf & _
'Veuillez appeler xxxxxx au 9999 pour effectuer le changement de vos cartouches'

End If
End Sub



bon apres midi
MichelXld

Message édité par: michelxld, à: 25/02/2006 16:44

 

[Marsu23]

Salut MichelXld,

Merci beaucoup pour ton aide, par contre je vais etre un peut chiant, j'aimerai savoir si il été possible de le faire mais avec un autre serveur de messagerie (ex: incredimail) ?

Bonne aprés midi,
Marsu23