Programmer : Envoyer un mail sous excel

Programmer : Envoyer un mail sous excel - VB/VBA/VBS - Programmation

Marsh Posté le 13-04-2004 à 15:24:23    

J'aimerais programmer l'envoi d'un mail dont l'adresse, le sujet et le contenu est dans un classeur Excel mais sans passer par Outlook puisque je n'ai pas ce programme. Je suis sous Win NT avec Netscape.
 
J'ai programmé ça :

Sub envoi_mail()
     
    Dim adresse As String
    adresse = Range("a1" )
    sujet = Range("b1" )
    Message = Range("c1" )
       
    URLto = "mailto:" & adresse & "?subject=" & sujet & "&body="  
    & Message
       
    ActiveWorkbook.FollowHyperlink Address:=URLto
   
  End Sub
 
Dans la case A1 j'ai "kruzi@voila.fr" et après exécution de la macro j'obtiens ceci dans l'adresse: "kruzi\"@voilà.fr"
 
Donc a priori un problème de format.
 
Merci de m'aider

Reply

Marsh Posté le 13-04-2004 à 15:24:23   

Reply

Marsh Posté le 14-04-2004 à 15:43:46    

Bon j'y suis finalement arrivé. C'était bien une question de format. Mais j'ai maintenant un autre pb. Aparemment il y a une taille limite du "body". En effet au lieu de prendre en compte la totalité du message contenu dans la variable "Message", il prend compte du début mais s'arrete au bout d'une ligne et demi. Que faire?

Reply

Marsh Posté le 19-04-2004 à 02:06:19    

kruzi a écrit :

Bon j'y suis finalement arrivé. C'était bien une question de format. Mais j'ai maintenant un autre pb. Aparemment il y a une taille limite du "body". En effet au lieu de prendre en compte la totalité du message contenu dans la variable "Message", il prend compte du début mais s'arrete au bout d'une ligne et demi. Que faire?  


 
j'ai déjà eu ce problème. La seule solution est de lire des blocs fixes (200 caractères par exemple) et de les concaténer dans une variable temporaire. pour cela, il faudra utiliser la fonction Mid().

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed