Thema Datum  Von Nutzer Rating
Antwort
Rot Gesendete Mails auf Festplatte speichern
15.07.2016 19:17:28 Tias
NotSolved
15.07.2016 19:54:03 Gast94588
NotSolved
15.07.2016 20:21:44 Tias
NotSolved
15.07.2016 21:16:40 Gast57293
NotSolved
15.07.2016 21:50:22 Tias
Solved
24.03.2023 17:19:41 Gast74192
NotSolved

Ansicht des Beitrags:
Von:
Tias
Datum:
15.07.2016 19:17:28
Views:
1765
Rating: Antwort:
  Ja
Thema:
Gesendete Mails auf Festplatte speichern

Hallo zusammen,

ich benötige eure Hilfe. Ich komme einfach nicht weiter. Ich möchte Mails nachdem sie im Ordner Gesendete Objekte gelandet sind auf der Festplatte speichern. Das habe ich auch schon son hinbekommen. Aber nur für das Haupt-Postfach.

Diese Funktion benötige ich aber für ein anderes Postfach. Wie muss ich das Macro ändern? We kann mir dabei helfen?

Den folgenden Code habe ich in "ThisOutlookSession" eingefügt

 

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
  Dim Ns As Outlook.NameSpace
  Dim myRecipient As Outlook.Recipient 'neu

  Set Ns = Application.GetNamespace("MAPI")
  Set Items = Ns.GetDefaultFolder(olFolderSentMail).Items 'hier wird aber leider nur das Standardkonto berücksichtigt
  'Ich benötige aber ein anders Konto. Wi bekomme ich das hin?
End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
  If TypeOf Item Is Outlook.MailItem Then
    PrintNewItem Item
  End If
End Sub

Private Sub PrintNewItem(Mail As Outlook.MailItem)
Dim strSpeicherpfad As String
Dim strBetreff As String
Dim strSuche As String
'Variablen zuweisen
    strSpeicherpfad = "C:\Users\Public\"             'hier das Laufwerk und Verzeichnis angeben
    strBetreff = LCase(Mail.Subject)    'Die Betreffzeile in kleinbuchstaben umwandeln und zuweisen
    strSuche = "test"                   'Suchtext
'Fehler abfangen
 '   On Error Resume Next

'hier soll eine Abfrage folgen ob ein Teil des Betreffs mit einer Vorgabe übereinstimmt,
'wenn ja soll die Mail in einem Verzeichnis gespeichert werden
    If InStr(1, strBetreff, strSuche) > 0 Then
        Mail.SaveAs (strSpeicherpfad & Mail.Subject & ".msg")
    End If
End Sub

Für Eure Unterstützung im Voraus meinen besten Dank,

Gruß,

Tias


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Gesendete Mails auf Festplatte speichern
15.07.2016 19:17:28 Tias
NotSolved
15.07.2016 19:54:03 Gast94588
NotSolved
15.07.2016 20:21:44 Tias
NotSolved
15.07.2016 21:16:40 Gast57293
NotSolved
15.07.2016 21:50:22 Tias
Solved
24.03.2023 17:19:41 Gast74192
NotSolved