Fonction SendMail

Fonction SendMail - VB/VBA/VBS - Programmation

Marsh Posté le 22-04-2004 à 23:44:22    

Bonsoir,
 
Je viens de faire un tour sur le forum et je n'ai pas trouvé reponse (soit y a pas, soit je sais pas chercher :ange: ).
 

Code :
  1. J'utilise la fonction SendMail de la facon suivante
  2. Workbooks("Questionnaire_" & identifiant & ".xls" ).sendmail recipients:=mail, subject:="[EDE] Map3"


 
Lors de l'execution le debog. m'indique  La methode "SendMail" de l'objet "_Workbook" a echoué.
 
Aidez moi SVP
 
 


---------------
Towin
Reply

Marsh Posté le 22-04-2004 à 23:44:22   

Reply

Marsh Posté le 23-04-2004 à 09:43:26    

si tu selectionne Sendmail et que tu fais F1 (penser à le faire de temps en temps ;) ) l'aide d'excel te dira :
 
"Recipients  : Argument de type Variant obligatoire. Spécifie le nom du destinataire sous la forme de texte ou, s'il y a plusieurs destinataires, d'un tableau de chaînes de caractères. Vous devez spécifier au moins un destinataire"
 
j'ai pas l'impression que "mail" dans ton code soit un destinataire ou une adresse mail valide.  :whistle:  
 
ex donné par l'aide :
ActiveWorkbook.SendMail recipients:="Jean Selva"
 
 :jap:

Reply

Marsh Posté le 23-04-2004 à 11:56:47    

En fait mail contient l'adresse au format string. Donc une adresse valide.
J'ai verifié avec l'affichage du contenu des variables utilisées par la procedure.
 
Donc si qqn a deja eu ce pb ou a une idée genial :sol:  
Qu'il me la transmette.
 
Merci


---------------
Towin
Reply

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

J'ai testé avec le "Recipient" en Variant et ça marche chez moi.
 
dim varDest as Variant
 
    varDest = "toto.nom@chezmoi.com"
    Workbooks("Famille.xls" ).SendMail varDEst, "TestSujet", False
 
Il faut, bien sur, que le fichier xls à expédier soit ouvert. (fasse partie de la collection).


---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?
Reply

Marsh Posté le 23-04-2004 à 16:55:40    

J'ai essaiyé le meme code que toi, et re meme message.
 
Je viens de penser (ca m'arrive) a une chose. C'est un programme que j'avais deja ecrit (et qui marchait) a


---------------
Towin
Reply

Marsh Posté le 23-04-2004 à 16:57:23    

qq pb. Suite
 
a..avant de devoir reinstaller tout le systeme. Je pense avoir installer tous les prog. comme ils l'etaient auparavant.
 
Si tu as Office Xp, tu peux me donner les fonction que tu as installée?
 
Merci.


---------------
Towin
Reply

Marsh Posté le 23-04-2004 à 17:04:25    

He non, je suis toujours sous Win95 avec Office 97 (j'ai honte mais c'est bon la honte). Et puis là, il faut que je quitte. Je repasse lundi voir si tu es toujours en panne.
Bon courage et bon week-end quand-même.
 
A+


---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?
Reply

Marsh Posté le 23-04-2004 à 19:43:25    

Merci pour votre aide.
 
Je viens d'isoler le pb.
Lors de l'installation de Xp je n'avais pas installé Micosoft Outlook (qui n'est pas outlook Express). Pour utiliser cette fonction il faut installer Microsoft Outlook du pack Office, ouis le supprimer avec l'assistant si on ne veut pas l'utiliser.
 


---------------
Towin
Reply

Marsh Posté le 09-11-2007 à 14:37:10    

towin a écrit :

Merci pour votre aide.
 
Je viens d'isoler le pb.
Lors de l'installation de Xp je n'avais pas installé Micosoft Outlook (qui n'est pas outlook Express). Pour utiliser cette fonction il faut installer Microsoft Outlook du pack Office, ouis le supprimer avec l'assistant si on ne veut pas l'utiliser.
 


 
Up de sagouin pour vous remercier ca m'a permis de trouver mon probleme  :jap: merci aussi a google et a la personne qui a mis la reponse.

Reply

Sujets relatifs:

Leave a Replay

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