Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

email Formular Felder importieren

email Formular Felder importieren
Werner
Hallo!
Ich finde für mein Problem mal wieder keine Lösung...
Ich will aus einem selbst erstellten Mail-Formblatt Daten aus den Textfeldern nach Excel bringen.
Das hier bringt mir "nur" die Standardwerte wie Absender usw.
Sub ReadOutlookInbox()
Dim objOLApp As Outlook.Application
Dim objFolder As Outlook.MAPIFolder
Dim objItems As Outlook.Items
Dim objNameSpace As Outlook.NameSpace
Dim objItem As Object
Dim i As Integer
Set objOLApp = CreateObject("Outlook.Application")
Set objNameSpace = objOLApp.GetNamespace("MAPI")
Set objFolder = objNameSpace.GetDefaultFolder(olFolderInbox)
Set objItems = objFolder.Items
'Worksheets.Add
i = 1
For Each objItem In objItems
If objItem  "Stückzahlmeldung" Then GoTo Ende
If objItem.Class = olMail Then
Cells(i, 1) = objItem.SenderName   ' Absender
Cells(i, 2) = objItem.Subject      ' Betreff
Cells(i, 3) = objItem.ReceivedTime ' Erhalten am
Cells(i, 4) = objItem.Size         ' E-Mail-Größe
Cells(i, 5) = objItem.Body         ' Inhalt
End If
i = i + 1
Ende:
Next
For i = 1 To 5
Columns(i).AutoFit
Next i
Set objNameSpace = Nothing
Set objFolder = Nothing
Set objItems = Nothing
End Sub
Ich will aber auch die Daten aus TextBox1 bis TextBox4 haben.
Geht das irgendwie?
Danke für die Hilfe!!!
Gruß
Werner

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: email Formular Felder importieren
05.10.2009 14:57:50
Kawensmann
Hallo,
versuch den Zugriff mal so:
objItem.GetInspector.ModifiedFormPages("DeinPageName").Controls("Textbox1").Text
Page-Name entsprechend anpassen...
Gruß
Kawensmann
AW: email Formular Felder importieren
05.10.2009 15:51:38
Werner
Hallo!
GENIAL!!!!!!!!!!!!
Vielen Dank!
Gruß
Werner
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige