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

Reply

Sujets relatifs:

Leave a Replay

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