Office: Outlook VBA NewMail Funktion Problem

Helfe beim Thema Outlook VBA NewMail Funktion Problem in Microsoft Outlook Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, ich möchte aus eingehenden E-Mails Anlagen in einem vorgegebenen Order abspeichern. Ich habe mir dazu ein Makro aus dem Netzt gemopst... Dieses Thema im Forum "Microsoft Outlook Hilfe" wurde erstellt von pecki75, 30. August 2021.

  1. pecki75 Neuer User

    Outlook VBA NewMail Funktion Problem


    Hallo zusammen,

    ich möchte aus eingehenden E-Mails Anlagen in einem vorgegebenen Order abspeichern. Ich habe mir dazu ein Makro aus dem Netzt gemopst - zugegebenermaßen- was genau das kann. Leider habe ich aber ein wenig Probleme.

    1) Das Makro legt zwar im vorgegebenen Verzeichnis den Ordner korrekt an, speichert aber die Anlage nicht ab
    2) Jedesmal, wenn ich den Makro-Editor und Outlook schließe, verliert das Makro den Eintrag "Application - NewMail", stattdessen wird "Allgemein - Deklarationen" angezeigt.
    3) Wir nutzen einen Exchange Server und ich habe das Gefühl, dass das Makro mich kurzzeitig vom Server trennt.

    Hier der Code:
    Code:
    Private Sub Application_NewMail()
                        Dim strNewFolder As String
                        Dim objPosteingang As MAPIFolder
                        Dim objNewMail As MailItem
    
                        On Error Resume Next
                        strNewFolder = "C:\Users\patrick.kipp\Desktop\OLAnlagen" & Format(Date, "ddmmyy")
                        MkDir strNewFolder
                        Set objPosteingang = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
                        For Each objNewMail In objPosteingang.Items
                        With objNewMail
                        If .UnRead = True Then
                        intAnlagen = .Attachments.Count
                        If intAnlagen > 0 Then
                        For i = 1 To intAnlagen
                        .Attachments.Item(i).SaveAsFile strNewFolder & "\" & .Attachments.Item(i).FileName
                        Next i
                        End If
                        End If
                        End With
                        Next objNewMail
                        End Sub
                    
    Vielen Dank, pecki75
     
    pecki75, 30. August 2021
    #1
Thema:

Outlook VBA NewMail Funktion Problem

Die Seite wird geladen...
  1. Outlook VBA NewMail Funktion Problem - Similar Threads - Outlook VBA NewMail

  2. Outlook Termineinladung an festen Kontakt

    in Microsoft Outlook Hilfe
    Outlook Termineinladung an festen Kontakt: Hallo zusammen, ich muss einen bestimmten Kontakt häufig zu einem Termin einladen und würde mir gerne ein paar Klicks sparen. Kann man eine Art Schnellsprung oder vielleicht ein Makro erstellen,...
  3. Versenden E-Mail aus Excel Liste via VBA & Outlook

    in Microsoft Excel Hilfe
    Versenden E-Mail aus Excel Liste via VBA & Outlook: Hallo zusammen, ich stehe wieder einmal vor einem mittelschweren Problem: Ich habe mir eine Excelliste erstellt mit Endterminen, Verantwortlichen, Status (open/in work/closed/storno) und...
  4. Outlook-Mail mit VBA: SendUsingAccount

    in Microsoft Access Hilfe
    Outlook-Mail mit VBA: SendUsingAccount: Hallo, ich habe mir den Code aus vielen Beispielen zusammengebaut, aber an einer letzten Stelle hapert es bei mir noch. Das .SendUsingAccount (mit oder ohne SET davor) mit einer E-Mail-Adresse,...
  5. mit VBA eine Serienbrief-Mail mit mehreren Anhängen erstellen

    in Microsoft Word Hilfe
    mit VBA eine Serienbrief-Mail mit mehreren Anhängen erstellen: Hallo zusammen, ich habe die Anforderung eine Mail mit 3 Anhängen an ca. 900 Empfänger zu verschicken. Die Mailkontakte habe ich in einer Excel-Datei vorliegen. Ich hatte es über die...
  6. Aufgaben aus einer Excel-Tabelle an verschiedene E-Mail-Adressen verteilen

    in Microsoft Excel Hilfe
    Aufgaben aus einer Excel-Tabelle an verschiedene E-Mail-Adressen verteilen: Hallo Forum, ich bin noch nicht allzu lange registriert, konnte aber bereits viele Hilfen und interessante Ansätze aus den Beiträgen entnehmen, welche mir sehr geholfen haben. In der Hoffnung...
  7. VBA-Code für Outlook

    in Microsoft Outlook Hilfe
    VBA-Code für Outlook: Hallo zusammen, Ich suche einen einfachen Code, mit dem man eine an ein Mail angehängte Datei unter einen fest vorgegebenen Pfad speichern und dem Absender gleichzeitig eine Eingangsbestätigung...
  8. Excel VBA: Outlook öffnen, Mail senden und schließen

    in Microsoft Excel Hilfe
    Excel VBA: Outlook öffnen, Mail senden und schließen: Hallo leibe Forengemeinde, ich plage mich gerade mit einem Problem herum und zwar möchte ich Outlook öffnen(falls noch nicht offen), eine Mail senden und dann wieder schließen (nur wenn es noch...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden