Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2059 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBS] Récuperer des données par mail sous Excel

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VBS] Récuperer des données par mail sous Excel

n°688723
K@zouille
Id PSN : LapinouRose
Posté le 31-03-2004 à 17:26:58  profilanswer
 

Voilà ,
J'expose mon problème. Je sais pas si c'est réalisable.
 
J'ai un formulaire sur le net, qui me renvoie un mail avec plsuieurs champs et valeurs.
 
J'ai ces mails sous Outlook Express 6
 
Et je veux creer une macro, pour recuperer ces infos sous excel.
 
Le champs 1 dans la colonne 1  
Le champs 2 dans la colonne 2  
....
 
Et creer un tableau avec mes données.
 
C'est faisable ? Vous avez des exemples ? des trucs a essayer.
 
Je m'y connait un peu en VBS, mais là je sèche :p
 
Merci d'avance !

mood
Publicité
Posté le 31-03-2004 à 17:26:58  profilanswer
 

n°690842
pumpkin031​2
Posté le 02-04-2004 à 14:12:45  profilanswer
 

Voici un début de piste pour Outlook (j'espère que ça marchera aussi bien avec outlook Express 6 )
Pense à ajouter , dans les références, la bibliothèque "microsoft outlook object library"
 
 
Dim OLapp As Outlook.Application
Dim OLspace As Outlook.NameSpace
Dim OLinbox As Outlook.MAPIFolder
Dim OLfolder As Outlook.MAPIFolder
Dim OLmail As Outlook.MailItem
Dim OLpj As Outlook.Attachment
 
 
Private Sub chMail()
 
Set OLapp = CreateObject("Outlook.application" )
Set OLspace = OLapp.GetNamespace("MAPI" )
Set OLinbox = OLspace.GetDefaultFolder(olFolderInbox)
 
For Each OLmail In OLinbox.Items
If OLmail.SenderName = "NomExpediteur, Prénom" Then
Dim OLbody As String
OLbody = OLmail.Body
 
Dim xlApp As Excel.Application
Dim wbk As Excel.Workbook
Dim sht As Excel.Worksheet
 
Set xlApp = CreateObject("Excel.Application" )
With xlApp
   .Visible = True
   Set wbk = .Workbooks.Add
   Set sht = wbk.ActiveSheet
   
      With sht
      .Range("A1" ) = OLbody
       End With
 
   wbk.SaveAs "C:\Chemin\Dossier\Fichier.xls"
   wbk.Close
   .Quit
   End With
   
Set sht = Nothing
Set wbk = Nothing
Set xlApp = Nothing
 
End If
Next
 
End Sub

n°690854
K@zouille
Id PSN : LapinouRose
Posté le 02-04-2004 à 14:19:16  profilanswer
 

Ah yaisse !
Là je dis merci , j'y croyais plus :D
 
J'essaierai ça ce soir, mais merci d'avoir cherché [:jap]


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBS] Récuperer des données par mail sous Excel

 

Sujets relatifs
[Excel] Division par 10Fonction chr ou fonction range sur excel
[VB6] Récupération de données d'une boîte mail ?Récupérer la valeur retournée par une api appelée en vbscript
Récupérer la valeur retournée par une api appelée en vbscriptpb de sessions! et foction mail()
ouvrir un fichier depuis excel[MySQL] Récupérer les valeurs associées à un max() dans un group by
Comment Lier des tables avec le gestionnaire de données 
Plus de sujets relatifs à : [VBS] Récuperer des données par mail sous Excel


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR