envoi outlook express

[michel33]

bonsoir
je voudrais envoyer un message avec outlook express en ouvrant la messagerie avec une macro(je travaille avec excel 97)
j'ai un ennui avec le corps du message:si il tient sur une seule cellule,pas de probleme.seulement je souhaiterais qu'il tienne sur une plage de cellules;comment faire?
macro utilisée:
Sub MailAvecOE()
Dim Dest As String
Dim Sujt As String
Dim Msg As String
Dest = 'michel.favre@free.fr'
Sujt = 'Test d'envoi avec Excel'
Msg = Range('a1')
Shell 'C:\\Program Files\\Outlook Express\\msimn.exe ' & _
'/mailurl:mailto:' & Dest & '?subject=' & Sujt & '&Body=' & Msg & ''
End Sub

merci d'avance pour la reponse;boone soirée à tous

michel 33

 

[Laurent L]

Bonjour,

Si j'ai bien compris ta question, pour mettre par exemple comme message le contenu des cellules A1:A10 (séparé par des sauts de ligne) :

Msg = Join([TRANSPOSE(A1:A10)], vbLf)

Cordialement,

Laurent

 

[michel33]

bonsoir laurent
merci pour ta reponse;mais si a la place de'Msg = Range('a1')'
je mets'Msg = Join([TRANSPOSE(A1:A10)], vbLf)',excel me retourne
l'erreur:erreur de compilation,sub ou fonction non definie
ou est l'erreur?
bonne soirée et merci d'avance pour la reponse

 

[Laurent L]

Bonsoir Michel,

Pardon je n'avais pas fait attention que tu utilises Excel 97. La fonction Join a été introduite avec Excel 2000.

Remplace par ceci :

Dim Ligne
For Each Ligne In [A1:A10]
   Msg = Msg & Ligne & vbLf
Next

Cordialement,

Laurent

Message édité par: Laurent L, à: 26/04/2005 21:11

 

[michel33]

bonsoir
merci Laurent de t'occuper ainsi de mon probleme;c'est presque resolu:unpetit souci quand meme,car je veux que le corps du message,contenu sur une plage de cellule b2:e26 garde la forme
d'un tableau.Est-ce possible ?
A+
Michel

 

[pat1545.]

Salut,

peut etre la bas ??

http://www.rondebruin.nl/sendmail.htm

Patrick