utilisation du shell en vba pour outlook

utilisation du shell en vba pour outlook - VB/VBA/VBS - Programmation

Marsh Posté le 08-03-2005 à 14:37:25    

voici mon code quelqu'un pourrait t-il me dire ce qu'il va pas?

Code :
  1. Sub IMPORTERcalendrier()
  3.     Dim outlook_application As New Outlook.Application
  4.     Dim outlook_mapi As NameSpace
  5.     Dim outlook_folder As MAPIFolder
  6.     Dim objets_calendrier As Outlook.Items
  7.     Dim occurence_calendrier As Outlook.AppointmentItem
  8.     Dim propriete_calendrier As Outlook.ItemProperty
  9.     Dim WSHShell
  10.    
  11.     Dim v_titre, v_descriptif, v_datedeb, v_datefin As String
  12.    
  13.     Set outlook_mapi = outlook_application.GetNamespace("MAPI" )
  14.     Set outlook_folder = outlook_mapi.GetDefaultFolder(olFolderCalendar)
  15.     Set objets_calendrier = outlook_folder.Items
  16.     Set occurence_calendrier = objets_calendrier.Item(1)
  17.     Set WSHShell = CreateObject("wscript.Shell" )
  18.    
  19.    
  20.  
  21.     Open "C:\calendrier.txt" For Input As #1
  22.     Input #1, v_titre, v_descriptif, v_datedeb, v_datefin
  23.    
  24.     With occurence_calendrier
  25.         .Subject = v_titre
  26.         .Body = v_descriptif
  27.         .Start = v_datedeb
  28.         .End = v_datefin
  29.         .Save
  30.     End With
  31.     WSHShell.Run Trim(occurence_calendrier.Subject), 1, False
  32.     WSHShell.Run Trim(occurence_calendrier.Body), 1, False
  33.     WSHShell.Run Trim(occurence_calendrier.Start), 1, False
  34.     WSHShell.Run Trim(occurence_calendrier.End), 1, False
  35.     WSHShell.Run Trim(occurence_calendrier.Save), 1, False
  36.    
  37.     Set occurence_calendrier = Nothing
  38.     Set outlook_folder = Nothing
  39.     Set outlook_mapi = Nothing
  40.     Set outlook_application = Nothing
  41.     Set objets_calendrier = Nothing
  42.     Set WSHShell = Nothing
  44. End Sub

Reply

Marsh Posté le 08-03-2005 à 14:37:25   

Reply

Marsh Posté le 08-03-2005 à 14:47:34    

avec ceci ce que je désire faire c'est d'executer ma macro en ligne de commande, j'utilise outlook 2003

Reply

Marsh Posté le 10-03-2005 à 08:33:00    

Tu as exécuté ton programme ? il te retourne une erreur ?
 
Sinon tu as mis : Open #1 ...., il te manque Close #1 !!!

Reply

Sujets relatifs:

Leave a Replay

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