Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1752to1756
1752to1756
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel per VBA Mail auslesen Empf.format

Forumthread: Excel per VBA Mail auslesen Empf.format

Excel per VBA Mail auslesen Empf.format
26.04.2020 23:50:30
erna82
Liebe Experten,
ich habe folgendes Problem.
Ich lese die eMails aus dem Posteingang eines bestimmten Empfängers via VBA wiefolgt aus:
Const strAbsenderName As String = "vorname.nachname@xyz.de"
Nun zum Problem: Das Ganze funktioniert nicht, wenn der Absendermail auch noch ein Name vorangestellt ist.
Wie bekomm ich das hin?
Lässt sich das ganze auch nur über den Namen lösen, also:
Const strAbsenderName As String = "Name"
Vielen Dank!
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel per VBA Mail auslesen Empf.format
27.04.2020 08:48:22
volti
Hallo Erna,
die Frage wird Dir mit den fehlenden Angaben zu Deiner Vorgehensweise (Code) kaum jemand beantworten.
Du kannst die Abholung der Mails z.B. mit dem like-Befehl bzgl. des Sendernamens filtern.
Nachfolgend findest Du ein Beispiel zum Abholen der Mails gefiltert auf Facebook-Mails...

Option Explicit
Sub GetAllMyMails()
'Sub liest die Mails des Posteingangs ein und listet die einzelnen Komponenten im Register Mails auf
 Dim i As Integer, j As Integer, n As Integer, sMails() As String, iAnz As Integer
 Dim sAbsender As String
 sAbsender = "Face*"
 With ThisWorkbook.Sheets("Mails")
  .Cells.ClearContents
'überschrift im MailRegister schreiben
  .Cells(1, 1).Resize(1, 10) = _
  Split("Absender Betreff gesendet Anz.Anl Mail-Text Wichtig gelesen Kopie-Empfänger Blindkopie-Empfänger Anlagen")
 
'Mails aus dem Posteinagng holen und verarbeiten
  With CreateObject("Outlook.Application").GetNamespace("MAPI")
   With .Folders("MyAccount@t-online.de").Folders("Posteingang")
    iAnz = .Items.Count
    ReDim sMails(iAnz, 9)
    For i = 0 To iAnz - 1
     With .Items(i + 1)
      If .SenderName Like sAbsender Or sAbsender = "" Then
       sMails(n, 0) = .SenderName
       sMails(n, 1) = .Subject
       sMails(n, 2) = .SentOn
       sMails(n, 3) = .Attachments.Count
       sMails(n, 4) = .body
       sMails(n, 5) = IIf(.Importance = 0, "nein", "ja")
       sMails(n, 6) = IIf(.Unread = 0, "nein", "ja")
       sMails(n, 7) = .CC
       sMails(n, 8) = .Bcc
Rem    sMails(n,7) = .ReminderSet    'Erinnerung
     
'Anlagen ermitteln
       With .Attachments
        For j = 1 To .Count
           sMails(i, 9) = sMails(n, 9) & .Item(j).Filename & vbLf
 '  .Item(1).SaveAsFile "c:\test.xls"
        Next j
       End With
       n = n + 1
      End If
     End With
    Next i
   End With
  End With
  .Cells(2, "A").Resize(n, 10) = sMails()
 End With
 MsgBox "Habe " & n & " Mails abgeholt!", vbInformation, "Mails importieren"
End Sub
viele Grüße
Karl-Heinz

Anzeige
AW: Excel per VBA Mail auslesen Empf.format
27.04.2020 11:33:18
erna82
Vielen Dank, Heinz.
AW: Excel per VBA Mail auslesen Empf.format
27.04.2020 13:21:59
Luschi
Hallo erna82,
was soll das, Du bedankst Dich, kannst diesen Vba-Code aber gar nicht getestet haben, denn er ist so nicht lauffähig:
- 'End If' und 'End With' sind vertauscht bzw. 1 'End With' ist zu viel
- For j = 1 To .Count ist falsch und muß so lauten: For j = 1 To .Attachments.Count
Gruß von Luschi
aus klein-Paris
Anzeige
AW: Excel per VBA Mail auslesen Empf.format
27.04.2020 13:58:59
volti
Na Luschi,
jetzt aber schnell die Brille auf und noch mal ran an den Code. Und zähl noch mal die WITH/END WITH nach.
Löppt wie's mutt… (Bei mir zumindest)
VG KH
AW: Excel per VBA Mail auslesen Empf.format
29.04.2020 12:07:41
Luschi
Hallo Karl-Heinz,
habe jetzt noch mal die Brille geputzt und gestaunt, was für einen Blödsinn ich da verzapft habe. Natürlich funktioniert Dein Vba-Code, bloß ich war zu ungeschickt, ihn richtig zu kopieren - also sorry meinerseits.
Gruß von Luschi
aus klein-Paris
PS: ich kann z.Z. nur den Code im Herber-Fenster nur seitenweise markieren, die Scroll-Funktion beim markieren ist deaktiviert!
Anzeige
AW: Excel per VBA Mail auslesen Empf.format
29.04.2020 12:32:48
volti
Hallo Luschi,
alles gut und für's codekopieren gibt's bei meinen Varianten den Copy-Button oben links im Rahmen....
VG KH
;

Forumthreads zu verwandten Themen

Textmail mit Excel auslesen
BuStü

Hallo Leute, ist es möglich folgende Mailings mit Excel auszulesen:
Hallo, am 28.10.2008 um 14:31:52 hat ein Besucher das Formular: http://www.xxxxxxxx/Webmaster/kontakt.html ausgefüllt. Der Besucher hatte die IP 87.xxx.xxx.xxx. Die Daten: Anrede: Name: E-Mail: Straße: Ort: Telefon: Fax:...
28.10.2008 14:58:00
Thread-ID: 1019960
3 Beiträge
Emails auslesen
Max

Hallo,
ich habe mal wieder eine Frage.
Ich möchte gerne einen Ordner in Outlook auslesen. In den ca 8000 Mails befindet sich in einem gleichen Schema ein Infoblock.
Speicherort, Dateiname, uhrzeit, name
Hier das Schema:
Eine neue Datei: "dateiname" vom Bentuzer "NNNN"(NAME)...
09.10.2009 13:09:26
Thread-ID: 1108544
2 Beiträge
Emails auslesen
Max

Hallo,
ich habe mal wieder eine Frage.
Ich möchte gerne einen Ordner in Outlook auslesen. In den ca 8000 Mails befindet sich in einem gleichen Schema ein Infoblock.
Speicherort, Dateiname, uhrzeit, name
Hier das Schema:
Eine neue Datei: "dateiname" vom Bentuzer "NNNN"(NAME)...
10.10.2009 11:47:48
Thread-ID: 1108545
2 Beiträge
Emailadresse auslesen
Tina

Guten Morgen,
in Zelle A1 steht:
achim.bode;achim.boede@vvv.de;
in B1 soll daraus
achim.boede@vvv.de
werden.
Wie geht das per Formel?
Lieben Dank
Gruss Tina
08.04.2010 07:31:20
Thread-ID: 1150565
9 Beiträge
Notes - Emailempfänger aus Zelle auslesen
Wolfgang

Hallo Experten !
Ein begeisterter, aber leider sehr unwissender VBA-Nutzer hofft mal wieder auf Eure Unterstützung.
Dank freundllicher Hilfe dieses Forums habe ich eine Automatik zur Verfügung, um aus einem Excel-Arbeitsblatt E-Mails per Lotus Notes zu versenden. Unter anderem werden di...
14.06.2010 17:14:53
Thread-ID: 1161802
3 Beiträge
Outlook, email-Datum auslesen
Peter

An die Experten,ich versuche aus dem Outlook-Posteingangskorb zu den einzelnen eingegangenen emails Daten ins Excel auszulesen. Begriffe wie
Recipient(1) (Empfänger 1)
Subject (Betreff)
Body (Text)
sind mir bekannt. Unter welcher Bezeichnung kann ich jedoch das Datum der eingegangen...
28.05.2002 13:05:27
Thread-ID: 124255
2 Beiträge
Email auslesen
BuStue

Hallo Leute,
ich habe hier schon etliche Varianten zum Auslesen von E-mail-texten gefunden, jedoch keine zu meinem speziellen Problem. Ich erhalte diverse E-mails von Mail Delivery System (e-mail-Adresse) an mich.
per Regel in einen bestimmten Unterordner Unzustellbare E-Mails.
Dies...
19.04.2012 18:22:16
Thread-ID: 1260111
5 Beiträge
Betreff von Emails in einem Ordner auslesen
Emails

Hallo an alle,
ich möchte gerne den Betreff, Empfänger, Absender und das Absendedatum von Emails aus einem bestimmten Ordner (nicht der Posteingang) in Outlook auslesen und in eine Tabelle schreiben.
Über die Suche im Internet habe ich dazu einige Beispiele gefunden, jedoch immer nur...
22.08.2012 16:47:49
Thread-ID: 1276053
10 Beiträge
Frage zum Auslesen von Excel Emails / Betreff
Excel

Hallo, im Forum habe ich die angehängte Datei zum Auslesen von Email-Betreffs von Emails in einem bestimmten Outlookordner.
Diese funktioniert für mich nicht ganz optimal, da die Reihenfolge des Ergebnisses nicht mit der Reihenfolge der Emails im Ordner übereinstimmt.
Ist es möglich, d...
20.12.2013 06:04:24
Thread-ID: 1343179
2 Beiträge
Namen aus String auslesen und Mailadresse erzeugen
Jockel

Hallo,
ich habe in der Spalte F Name und Vorname eines Mitarbeiters stehen.
String sieht immer so aus : "Nachname, Vorname" (Komma beachten)
Ich möchte nun in der Spalte G aus den beiden Informationen eine eMail Adresse zusammenbauen.
Dazu müsste man aus dem String zuerst den hi...
02.04.2014 08:26:57
Thread-ID: 1355774
7 Beiträge
E-Mailbetreff als String auslesen
Henry

Moin ,
ich würde gern bei einer selektierten Email den Betreff auslesen und dann als String speichern.
Der String soll dann durchsucht werden ob sich hierin eine bestimmte Zeichenkette (#?####) befindet.
Dieser Wert (#?####) soll dann als variable gespeichert werden.
Kann mir...
23.11.2015 13:45:36
Thread-ID: 1460148
3 Beiträge
Anzeige
Emails in Excel auslesen
Benno

Hey zusammen,
habe ein neues (wahrscheinlich nicht allzu großes) Problem bei unten stehendem folgendem Makro:
Ich möchte statt dem Posteingang, einen Unterordner im Posteingang als Quelle für die Emails nutzen. Und wenn möglich, soll in diesem Ordner ein weiterer Unterordner sein ("Erle...
01.07.2016 14:07:21
Thread-ID: 1502080
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige