Syntaxe VBA

Syntaxe VBA - VB/VBA/VBS - Programmation

Marsh Posté le 22-05-2008 à 16:33:37    

:hello:  
 
J'ai une question car je viens de rajouter ce code dans ma macro VBA pour que je sois notifié de la fin de celle-ci.
Dans un boîte de dialogue, on rentre les données suivantes : NOM et COULEUR.
Tout cela se reporte dans un tableau Excel.
Maintenant, à chaque saisie un mail doit m'est envoyé automatiquement... et doit m'informer de la couleur de la chemise de trucmuch...
Malheureusement, je ne reçois que "La couleur de la chemise de  est  "
Les variables NOM et COULEUR ne s'insère pas correctement dans le Body...
 
Quel est le bon code ?
 

Code :
  1. Dim OutlApp2 As New Outlook.Application
  2.     Dim OutlMail2 As MailItem
  3.     Set OutlApp2 = New Outlook.Application
  4.     Set OutlMail2 = OutlApp2.CreateItem(olMailItem)
  5.     With OutlMail2
  6.             .To = "moi@moi.com"
  7.             .Subject = "NOTIFICATION"
  8.             .Body = "La couleur de la chemise de " & NOM & " est " & COULEUR
  9.             ' .Display  '
  10.             .Send ' pour l'envoi direct du message
  11.            
  12.     End With


 
Merci pour votre aide...
 

Message cité 1 fois

---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To
Reply

Marsh Posté le 22-05-2008 à 16:33:37   

Reply

Marsh Posté le 22-05-2008 à 16:37:18    

scaryfan a écrit :

:hello:  
 
J'ai une question car je viens de rajouter ce code dans ma macro VBA pour que je sois notifié de la fin de celle-ci.
Dans un boîte de dialogue, on rentre les données suivantes : NOM et COULEUR.
Tout cela se reporte dans un tableau Excel.
Maintenant, à chaque saisie un mail doit m'est envoyé automatiquement... et doit m'informer de la couleur de la chemise de trucmuch...
Malheureusement, je ne reçois que "La couleur de la chemise de  est  "
Les variables NOM et COULEUR ne s'insère pas correctement dans le Body...
 
Quel est le bon code ?
 

Code :
  1. Dim OutlApp2 As New Outlook.Application
  2.     Dim OutlMail2 As MailItem
  3.     Set OutlApp2 = New Outlook.Application
  4.     Set OutlMail2 = OutlApp2.CreateItem(olMailItem)
  5.     With OutlMail2
  6.             .To = "moi@moi.com"
  7.             .Subject = "NOTIFICATION"
  8.             .Body = "La couleur de la chemise de " & NOM & " est " & COULEUR
  9.             ' .Display  '
  10.             .Send ' pour l'envoi direct du message
  11.            
  12.     End With


 
Merci pour votre aide...
 


 
 
Mille excuses...
Je viens de trouver le problème.
Ce code s'exécute après que ma boîte de dialogue soit fermée et les variables sont réinitialisées... ce que je ne savais pas...
 
 :bounce:  


---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To
Reply

Sujets relatifs:

Leave a Replay

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