title image


Smiley Re: E-Mail aus Outlook auslesen
Hi, um diesen Code hier benützen zu können, musst Du als erstes auf "Projekt", "Verweise" klicken, und die Object Library von Outlook hinzufügen. Dann sollte dir nix mehr im Weg stehen. Weitere Befehle kannst Du dann über den Objektexplorer einsehen.Über eine Mail bei Erfolg oder Mißerfolg etc., würde ich mich freuen - aguilagmb@aol.com!!!>>> x und z musst Du durch Zahlen ersetzen. Du kannst diese natürlich in Schleifen hochzählen lassen usw.!>>> myBody, mySubject, mySenderName, myATT_Name geben übrigens alle einen String zurück.Private Sub Command1_Click()----------------------------Set myApp = CreateObject("Outlook.Application")Set myNamespace = myApp.GetNamespace("MAPI")Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)Set myItem = myFolder.Items(x) 'x. Mail initialisierenmyMailsCount = myFolder.Items.Count 'Anzahl der Mails im VerzeichnismyBody = myItem.Body 'Body der MailmySubject = myItem.Subject 'Subject der MailmySenderName = myItem.SenderName 'Absender der mailSet myATT = myItem.AttachmentsSet myATT_2 = myATT.Item(z) 'z. Attachment initialisierenmyATT_Name = myATT_2.DisplayName 'Dateiname des Attachments-------------------------------End Sub

Viele Grüße - Georg



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: