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!

???

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    
 
Une solution ?

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

.body  me renvoie une erreur...
 

up!

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

Une string

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

 
 
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 ??

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 ?

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...

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

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 ?

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é