MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Outlook (Express), sonst. Mailprogramme
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 09.02.2018, 06:59   #1
Gernot
MOF User
MOF User
Standard OL 2007 - IMAP Mail automatisch speichern

Hi,
wie kann ich die eingehenden Imap mails automatisch als Kopie in Z:\Mail\Sendermailadresse&aktuelles_Datum speichern?

lg
gernot
Gernot ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.02.2018, 07:41   #2
markusxy
MOF Meister
MOF Meister
Standard

Für dieses Thema finden sich aber wirklich jede Menge Beispiele.
Einfach mal googeln.
markusxy ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.02.2018, 08:24   #3
Gernot
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hab ich schon hinter mir. ICH hab da nichts annähernd brauchbares gefunden. Kannst du mir ev ein paar hits kopieren?
danke

lg
gernot
Gernot ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.02.2018, 08:56   #4
markusxy
MOF Meister
MOF Meister
Standard

Hier solltest du auf jeden Fall fündig werden:

http://www.vboffice.net/de/developers
markusxy ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.02.2018, 10:54   #5
Gernot
Threadstarter Threadstarter
MOF User
MOF User
Standard

Danke!

http://www.vboffice.net/de/developer...stem-speichern

scheint es zu sein. Kann ich erst später ausprobieren.

lg
Gernot ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.02.2018, 11:26   #6
Gernot
Threadstarter Threadstarter
MOF User
MOF User
Standard

Allerdings möchte ich es an eine Regel hängen, da es nur bei einem bestimmten Konto (eben dem einen IMAP) greift und zwar erst nachdem eine ANDERE Regel gegriffen hat. Muss ich da was besonderes beachten, ich will nicht alle junkmails mit abspeichern!


Code:

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
  Dim Ns As Outlook.NameSpace
  Set Ns = Application.GetNamespace("MAPI")
  Set Items = Ns.GetDefaultFolder(olFolderInbox).Items
End Sub

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

Private Sub SaveMailAsFile(oMail As Outlook.MailItem)
  Dim dtDate As Date
  Dim sName As String
  Dim sFile As String
  Dim sExt As String
  
  sPath = "d:mails"
  sExt = ".msg"
  sName = oMail.Subject
  ReplaceCharsForFileName sName, "_"
  dtDate = oMail.ReceivedTime
  sName = Format(dtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
    vbUseSystem) & Format(dtDate, "-hhnnss", _
    vbUseSystemDayOfWeek, vbUseSystem) & "-" & sName & sExt

  oMail.SaveAs sPath & sName, olSaveAsMsg 
End Sub

Private Sub ReplaceCharsForFileName(sName As String, _
  sChr As String _
)
  sName = Replace(sName, "/", sChr)
  sName = Replace(sName, "", sChr)
  sName = Replace(sName, ":", sChr)
  sName = Replace(sName, "?", sChr)
  sName = Replace(sName, Chr(34), sChr)
  sName = Replace(sName, "<", sChr)
  sName = Replace(sName, ">", sChr)
  sName = Replace(sName, "|", sChr)
End Sub
lg
gernot
Gernot ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.02.2018, 12:57   #7
markusxy
MOF Meister
MOF Meister
Standard

Zitat: von Gernot Beitrag anzeigen

Allerdings möchte ich es an eine Regel hängen

Das geht natürlich auch, aber dann müsste man das ganze Konzept ändern.
Habs zwar noch nie verwendet, aber man kann bei einer Regel auch ein Script ausführen lassen. Dann müsste man dann den Code so verändern, dass er nur noch die neuen Mails verarbeitet oder sich irgend einen anderen Weg ausdenken.

Andererseits frage ich mich echt warum man einfach alle Mails im Filesystem abspeichert. Du kannst sie doch gleich dort lassen wo sie sind, dann kann man wenigstens danach suchen usw.
markusxy ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.02.2018, 10:06   #8
Gernot
Threadstarter Threadstarter
MOF User
MOF User
Standard

Ist für ein "portables Archiv" auf externer Festplatte.

Mich interessiert, was wo gemacht wird.
Das eliminiert wohl geschützte Zeichen. Kommt bei mir nicht vor.
Code:

Private Sub ReplaceCharsForFileName(sName As String, _
  sChr As String _
)
  sName = Replace(sName, "/", sChr)
  sName = Replace(sName, "", sChr)
  sName = Replace(sName, ":", sChr)
  sName = Replace(sName, "?", sChr)
  sName = Replace(sName, Chr(34), sChr)
  sName = Replace(sName, "<", sChr)
  sName = Replace(sName, ">", sChr)
  sName = Replace(sName, "|", sChr)
End Sub
Das kopiert offenbar die Mails
Code:

Private Sub SaveMailAsFile(oMail As Outlook.MailItem)
  Dim dtDate As Date
  Dim sName As String
  Dim sFile As String
  Dim sExt As String
  
  sPath = "d:mails"
  sExt = ".msg"
  sName = oMail.Subject
  ReplaceCharsForFileName sName, "_"
  dtDate = oMail.ReceivedTime
  sName = Format(dtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
    vbUseSystem) & Format(dtDate, "-hhnnss", _
    vbUseSystemDayOfWeek, vbUseSystem) & "-" & sName & sExt

  oMail.SaveAs sPath & sName, olSaveAsMsg 
End Sub
Was macht der erste Teil?
Gernot ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.02.2018, 17:48   #9
Gernot
Threadstarter Threadstarter
MOF User
MOF User
Standard

habs jetzt so:
Code:

Public Sub SaveMailAsFile(oMail As Outlook.MailItem)
  Dim dtDate As Date
  Dim sName As String
  Dim sFile As String
  Dim sExt As String
    sPath = "Z:VerlagMailArchivIN"
 sExt = ".msg"
  sName = oMail.Subject
  dtDate = oMail.ReceivedTime
  sName = Format(Now, "YYYY_MM_DD_HH_MM_SS") & sName & sExt
  oMail.SaveAs sPath & sName, olSaveAsMsg


End Sub
das geht auch in einer Regel, allerdings
1) speichere ich sName=Subject, ich hätte aber gerne die Mailadresse
2) lassen sich die gespeicherten mails nicht öffnen. Es kommt eine Fehlermeldung "... die Datei ist entweder nicht vorhanden... [ich seh sie ja!!!] ... oder sie haben nicht die Berechtigungen....
Wenn ich sie per Drag/drop in den ordner siehe, lassen sie sich öffnen!

?????
Gernot ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.02.2018, 18:16   #10
Gernot
Threadstarter Threadstarter
MOF User
MOF User
Standard

Code:

oMail.SaveAs sPath & sName, olMSG
dann geht's
wie bekomm ich den absender (ich@irgendwo.at) in den Filenamen?
Gernot ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.02.2018, 18:37   #11
Gernot
Threadstarter Threadstarter
MOF User
MOF User
Standard

Code:

 sName = oMail.SenderEmailAddress()
nimmt den absender
Gernot ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.02.2018, 18:40   #12
Gernot
Threadstarter Threadstarter
MOF User
MOF User
Standard

Es gibt aber auch ein weiteres Problem: Ich möchte bei diesem IMAP-Konto Analoges beim Versenden machen, finde aber bei den Regeln im ANschluss an "nach dem Versenden" kein "Script ausführen"
Gernot ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.02.2018, 19:05   #13
markusxy
MOF Meister
MOF Meister
Standard

Zitat: von Gernot Beitrag anzeigen

finde aber bei den Regeln im ANschluss an "nach dem Versenden" kein "Script ausführen"

Je nach Ziel könnte dir das Application.ItemSend-Ereignis oder das Folder.Items.Add Ereignis weiterhelfen.

Ansonsten erzähl mal was du genau machst -> zweck des Regel und gewünschte Aktion nach der Regel.

LG M
markusxy ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.02.2018, 18:45   #14
Gernot
Threadstarter Threadstarter
MOF User
MOF User
Standard

Ich möchte, dass JEDE mail von einem bestimmten Konto beim Versenden als Kopie in z.B. D:\hinaus\ gespeichert wird. Fragt jetzt nicht warum, es ist so gewünscht.

lg
Gernot ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:54 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.