recuperer le contenu d'un mail

recuperer le contenu d'un mail - XML/XSL - Programmation

Marsh Posté le 09-06-2005 à 10:34:15    

Bonjour a tous,
 
voila, je travaille sous access et je dois récupérer le contenu d'un mail dont le sujet est "Alerte seveur" tous les jours automatiquement.
J'ai trouvé sur ce forum un sujet la-dessus mais je comprends pas bien:
 
http://forum.hardware.fr/hardwaref [...] 8422-1.htm
 
Ou faut-il que j'insere les lignes de FGA dans les lignes de code de |||||||
 
Merci d'avance a qui pourra m'aider..

Reply

Marsh Posté le 09-06-2005 à 10:34:15   

Reply

Marsh Posté le 09-06-2005 à 17:05:07    

tu dois programmer le vba de ton outlook
tu dois aller dans la section ThisOutlookSession
et y mettre ton code vba
Petit exemple utile:

Code :
  1. Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
  2.    
  3.     Dim Ind As Integer
  4.     Dim WSHShell
  5.     Dim ligne As String
  6.     Dim chemin As String
  7.     Dim PJ As Attachment
  8.     Dim rejet
  9.     Dim Ok
  10.     Set rejet = CreateItem(olMailItem)
  11.     Set Ok = CreateItem(olMailItem)
  12.    
  13.     Set WSHShell = CreateObject("wscript.shell" )
  14.     ' si un nouveau message arrive
  15.     chemin = "d:\XXXXX\"
  16.     On Error Resume Next
  17.    
  18.    
  19.     If Item.Class = olMail Then
  20.                                      
  21.                     'copie le fichie
  22.                     'et lance le traitement                     If InStr(1, Item.Subject, "toto" ) <> 0 Then
  23.                        
  24.                          If Item.Attachments.Count > 0 Then
  25.                             Set PJ = Item.Attachments.Item(1)
  26.                             If InStr(1, PJ.DisplayName, "tutu" ) <> 0 Then
  27.                               chemin = chemin & PJ.DisplayName
  28.                               PJ.SaveAsFile (chemin)
  29.                               chemin = "msaccess "
  30.                               chemin = chemin & """"
  31.                               chemin = chemin & "d:\XXXX\XXX.mdb "
  32.                               chemin = chemin & """"
  33.                               chemin = chemin & " /x taMacro /cmd " & PJ.DisplayName
  34.        shell(chemin)
  35.                             Set PJ = Nothing
  36.                             Else
  37.                             If Item.Attachments.Count = 2 Then
  38.                               Set PJ = Item.Attachments.Item(2)
  39.                                  If InStr(1, PJ.DisplayName, "tutu" ) <> 0 Then
  40.                                  chemin = chemin & PJ.DisplayName
  41.                                  PJ.SaveAsFile (chemin)
  42.                                  chemin = "msaccess "
  43.                                  chemin = chemin & """"
  44.                                  chemin = chemin & "d:\XXX\toto.mdb "
  45.                                  chemin = chemin & """"
  46.                                  chemin = chemin & " /x taMacro /cmd " & PJ.DisplayName
  47.                            '      RunProcess (chemin)
  48.                                 End If
  49.                             End If
  50.                             End If
  51.                         End If
  52.                     End If
  53.                   End If

Reply

Sujets relatifs:

Leave a Replay

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