VBA Outlook : Création mail et insertion signature

VBA Outlook : Création mail et insertion signature - VB/VBA/VBS - Programmation

Marsh Posté le 07-04-2005 à 19:06:35    

Salut,  
Je suis novice dans la programmation VBA Outlook. J'ai écrit une macro pour créer un mail et insérer une signature en même temps. Voici le code :  
 

Code :
  1. Public Sub writeSig(strCompte As String)
  2. Dim oMail As Outlook.MailItem
  3. Set oMail = Outlook.Application.CreateItem(olMailItem)
  4. With oMail
  5.    .BodyFormat = olFormatHTML
  6.    .HTMLBody = ""
  7.    .Display
  8. End With
  9. 'MsgBox ("test" )
  10. Dim oInsp As Outlook.Inspector
  11. Set oInsp = oMail.GetInspector
  12. Dim oCBP As Office.CommandBarPopup
  13. Dim oCBB As Office.CommandBarButton
  14. Dim cCBControls As Office.CommandBarControls
  15. Set oCBP = oInsp.CommandBars.FindControl(, 31145)
  16. Set cCBControls = oCBP.Controls
  17. Dim idSig
  18. For Each oCBB In cCBControls
  19.     If oCBB.Caption = strCompte Then
  20.         idSig = oCBB.Index
  21.         Exit For
  22.     End If
  23. Next
  24. cCBControls.Item(idSig).Execute
  25. End Sub

 
 
strCompte est le nom de la signature (ce qu'on voit quand on fait insertion>signatures sous Outlook)  
Sous cette forme, la macro ne fonctionne pas parfaitement. Il y a bien création d'un nouveau message mais la signature est ignorée. Par contre, si je fais apparaître une MsgBox, la signature apparaît. Est-ce clair ? En tout cas, je ne comprends pourquoi dans l'un ou l'autre cas ça fonctionne différemment.  
 
Merci à toute l'aide qu'on pourra me donner.


---------------
toph, apprenti programmeur
Reply

Marsh Posté le 07-04-2005 à 19:06:35   

Reply

Marsh Posté le 31-08-2009 à 17:10:53    

Ca m'intéresse ce sujet, même si il est mort depuis des siècles

Reply

Marsh Posté le 31-08-2009 à 18:48:54    

Je ne suis pas sur, mais si la signature apparaissait que après avoir fait apparaitre un msgbox, c'est peut être que sans ce msgbox, le message n'avait pas assez de temps pour se créer pour que l'insertion de la signature se fasse.
Peut être qu'en insérant un do event ça marcherait mieux ?


---------------
OtObOxBlOg - - - Etre seul à avoir tort  c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons
Reply

Marsh Posté le 01-09-2009 à 08:59:51    

En fait je recherche à palier le problème de l'insertion de la signature quand on fait sur un document : "clic droit, envoyer vers", ça ajoute un message, mais sans insérer la signature, c'est d'un lourd... :s

Reply

Sujets relatifs:

Leave a Replay

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