Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[R] Récupération contenu d'un email
Auteur Message
Répondre en citant
Message [R] Récupération contenu d'un email 
Bonjour à tous Smile

J'ai besoin de votre aide pour créer un batch qui permet de récupérer le contenu d'un email (via Outlook) pour ensuite les utiliser dans un batch. Après pas mal de temps à chercher sur le net, je n'ai pas trouvé mon bonheur Sad


Exemple :
Code:

De : Max
A : Support-info
Objet : Relance

Corps :

TSF
FTP
FR



J'aimerais récupérer les 3 valeurs dans le corps du mail pour ensuite les travailler dans un batch du type :

classe=TSF
protocol=FTP
pays=FR


Merci !! Smile



Dernière édition par benji0759 le Ven 5 Mai 2017 - 12:48; édité 1 fois
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [R] Récupération contenu d'un email 
Pour en finir j'ai trouvé, en VBA :

Code:

's'execute à réception nouveau mail
'à inserer dans outlook
'vba-->thisOutlookSession-->Application-->NewMail



Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

End Sub

Private Sub Application_NewMail()
 On Error GoTo errorHandler

' Variable Outlook
Dim OLapp As Outlook.Application
Dim OLspace As Outlook.NameSpace
Dim FileName As String
Dim Item As Object
Dim Items As Outlook.Items
Dim myItem As Outlook.MailItem
 Dim MaPoubelle As Outlook.MAPIFolder
 
     
' Variables Fichier Texte
Dim NoFile As Integer
Dim stTextInput As String

' Variable du traitement
Dim i As Integer
Dim tmp As Double

 



Set OLapp = CreateObject("Outlook.application")
Set OLspace = Application.GetNamespace("MAPI")
Set OLinbox = GetFolderPath("Ton_Adresse@Mail.com\Boîte de réception")
Set MaPoubelle = GetFolderPath("Ton_Adresse@Mail.com\Éléments supprimés")


NoFile = FreeFile
'Open CurrentProject.Path & "\Message" & Messages & ".txt" For Append As #NoFile
Open "C:\Users\Public\Documents\Alertes.txt" For Append As #NoFile
 

'lecture contenu du dossier alertes
 For Each Item In OLinbox.Items
 If Item.Subject Like "Relance" Then
 Print #NoFile, Item.Body
'ElseIf Not Item.Subject Like "*BIDON00001*" Then
' On supprime contenu dossier boîte de récéption sauf bidon
 'Set Item = Item.Move(MaPoubelle)
 End If
 Next Item
 
 
Close #NoFile
 

Set OLapp = Nothing
Set OLspace = Nothing
Set OLinbox = Nothing
Set myMail = Nothing

'supprime fichier txt
'ChDrive "C"
' ChDir "C:\Users\Public\Documents"
' Kill "Alertes.txt"
 


   Exit Sub
   
errorHandler:
   
    '' ENVOI MAIL AU TECH
'SendOutlookMessage _
    '  "Ton_Adresse@Mail.com", _
    '  "", _
   '   "", _
   '   "Erreur BDD : " & Err.Number, _
   '  Err.Number & vbLf & Err.Description, _
   '   False, _
   '  ""


'indique le numéro et la description de l'erreur survenue
    MsgBox Err.Number & vbLf & Err.Description
   
  ' MsgBox "Vous venez de recevoir un nouveau Mail !", vbExclamation


End Sub


Bonne journée ! A+



Message [R] Récupération contenu d'un email 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch