[RESOLU]Mettre le contenu d'une variable dans le corps d'un mail

Mettre le contenu d'une variable dans le corps d'un mail [RESOLU] - VB/VBA/VBS - Programmation

Marsh Posté le 02-11-2005 à 10:24:38    

Bonjour à tous,
 
Voila je suis en train de faire un programme en VB 6.0 qui gère des alarmes sur un parc d'équipements, dans ma fonction d'envoi de mail je cherche à faire apparaître dans le corps du message le contenu d'une variable (DernierLigne).
Bon je suis débutant en VB et je ne sais pas comment faire...
 
Voici ma fonction mail:
 
Private Sub envoimail()
 
Dim config As CDO.Configuration
Dim email As CDO.Message
 
 
Set config = New CDO.Configuration
With config.Fields
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = CDO.cdoSendUsingPort
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = "smtp.arenius.fr"
    .Update
End With
   
 
Set email = New CDO.Message
With email
    Set .Configuration = config
    .From = "xxxxx@xxxxxxx.fr"
    .To = "xxxxxxxx@xxxxx.fr"
    .Subject = "Alerte!!défaut sur l'une des machines"
    .TextBody = "Problème sur l'une des machines"
    .Send
End With
 
Text1.Text = "alerte!!!Défaut detecté sur une des machines"
 
 
End Sub

 
Que mettre dans TextBody pour que ma variable DernierLigne soit présente dans le corps du mail envoyé ?
 
Merci d'avance! :D


Message édité par sepiroth le 03-11-2005 à 10:36:28
Reply

Marsh Posté le 02-11-2005 à 10:24:38   

Reply

Marsh Posté le 02-11-2005 à 11:07:45    

Code :
  1. .TextBody = "Problème sur l'une des machines "  & DernierLigne


???

Reply

Marsh Posté le 02-11-2005 à 11:15:16    

J'ai déjà essayé avec &DernierLigne .... ca ne marche pas.. :(  Ca ne fait pas d'erreur, l'éxécution pas à pas me donne bien une valeur différente de Null pour DernierLigne dans ma fonction quand je mets une Watch...
 
Merci quand même  :hello:  
 
Une solution ?

Message cité 1 fois
Message édité par sepiroth le 02-11-2005 à 11:17:03
Reply

Marsh Posté le 02-11-2005 à 11:58:07    

sepiroth a écrit :

J'ai déjà essayé avec &DernierLigne .... ca ne marche pas.. :(  Ca ne fait pas d'erreur, l'éxécution pas à pas me donne bien une valeur différente de Null pour DernierLigne dans ma fonction quand je mets une Watch...
 
Merci quand même  :hello:  
 
Une solution ?


 
Essaye avec .body au lieu de .textbody et/ou construit ton string avant ...  
 

Code :
  1. dim bodytext as string
  2. ...
  3. bodytext = "Problème sur l'une des machines "  & DernierLigne
  4. ...
  5. .body = bodytext


Message édité par Vobiscum le 02-11-2005 à 11:58:42

---------------
Ce qui est affirmé sans preuve peut être nié sans preuve.
Reply

Marsh Posté le 02-11-2005 à 14:29:01    

.body  me renvoie une erreur...
 

Reply

Marsh Posté le 02-11-2005 à 15:23:53    

up!

Reply

Marsh Posté le 02-11-2005 à 16:06:28    

C'est quoi le type de ta variable DernièreLigne ?


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 02-11-2005 à 16:28:31    

Reply

Marsh Posté le 02-11-2005 à 17:59:47    


et il y a quoi dedans normallement ?
 
EDIT : parce que .TextBody = "Problème sur l'une des machines "  & DernierLigne marche forcement si DernierLigne est une string


Message édité par mareek le 02-11-2005 à 18:04:31

---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 03-11-2005 à 08:41:22    

sepiroth a écrit :

.body  me renvoie une erreur...


 
 
J'avais mis et/ou (pour certains c'est textbody, pour d'autres c'est body) mais as-tu essayé de construire ton string avant ??


---------------
Ce qui est affirmé sans preuve peut être nié sans preuve.
Reply

Marsh Posté le 03-11-2005 à 08:41:22   

Reply

Marsh Posté le 03-11-2005 à 09:00:51    

En fait DernierLigne est une String mais qui comporte des espaces...Est ce que le problème ne viendrait pas de la pas hasard ?
DernierLigne peut être par exemple: "défaut pression R404 compresseur auxiliaire"
 
J'ai aussi essayé de construire mon String avant mais ca ne marche pas non plus...
 
Merci

Reply

Marsh Posté le 03-11-2005 à 09:08:34    

sepiroth a écrit :

En fait DernierLigne est une String mais qui comporte des espaces...Est ce que le problème ne viendrait pas de la pas hasard ?
DernierLigne peut être par exemple: "défaut pression R404 compresseur auxiliaire"
 
J'ai aussi essayé de construire mon String avant mais ca ne marche pas non plus...
 
Merci


 
En lisant un peu sur le web:
 
dim email as object au lieu de dim email as CDO.Message
 
puis
 
set email = createobject("CDO.Message" ) au lieu de set email = New CDO.Message
 
vois si c'est mieux ?


Message édité par Vobiscum le 03-11-2005 à 09:10:08

---------------
Ce qui est affirmé sans preuve peut être nié sans preuve.
Reply

Marsh Posté le 03-11-2005 à 10:11:39    

Mon corps de mail est désespérement vide... :(  
Je comprend pas pourquoi ca marche pas...la watch me montre bien que DernierLigne contient la chaîne de caractère lorsque je suis dans la fonction envoimail...

Reply

Marsh Posté le 03-11-2005 à 10:13:48    

bon même en virant les espaces ca change rien donc le problème ne vient pas de la...

Reply

Marsh Posté le 03-11-2005 à 10:22:26    

Bon autant pour moi je viens de m'apercevoir que ma variable DernierLigne était nulle dans ma fonction envoimail....pourtant la fonction d'avant est déclarée en Public sub, la valeur de dernierLigne devrait donc être connue dans la fonction envoimail ?

Reply

Marsh Posté le 03-11-2005 à 10:35:43    

bon mon problème est résolu, il fallait en fait que je déclare ma variable DernierLigne dans les déclarations générales. Je pensais que la déclarer dans une public sub suffisait mais la rendre publique elle aussi mais à priori ce n'est pas le cas... tout cela combiné à une mauvaise utilisation de la watch ca donne une belle connerie de ma part. Désolé :D

Reply

Sujets relatifs:

Leave a Replay

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