9
Outlook: Emails werden nicht mehr angezeigt
Hallo
habe ein vba Script geschrieben - nun ein Problem - wenn ich das script laufen lassen - werden in allen Ordner die Mails nicht mehr angezeigt
habe ein vba Script geschrieben - nun ein Problem - wenn ich das script laufen lassen - werden in allen Ordner die Mails nicht mehr angezeigt
Sub Application_Startup()
On Error Resume Next
Dim myFolder As Outlook.MAPIFolder
Dim myNameSpace As Outlook.NameSpace
Dim OLApp As New Outlook.Application
Dim msg As Outlook.MailItem
Set myNameSpace = Application.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox).Folders("Booking")
Set Application.ActiveExplorer.CurrentFolder = myFolder
Application.GetNamespace("MAPI").GetDefaultFolder (olFolderInbox)
For Each msg In myFolder.Items
If msg.UnRead Then
var = Left(msg.Subject, 10)
If var = "Neue_Reser" Then
msg.SaveAs "C:\mails\" & msg.Subject & ".txt", olTXT
msg.UnRead = False
Else
End If
End If
Next
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
Set Application.ActiveExplorer.CurrentFolder = myFolder
MoveItems
End Sub
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 1137334011
Url: https://administrator.de/contentid/1137334011
Printed on: April 23, 2024 at 19:04 o'clock
9 Comments
Latest comment
Moin...
du machst ja sachen.... dann lass mal das script nicht laufen, dann ist ja alles gut
alternativ kannst du uns ja beschreiben, was du den ereichen möchtest..... ist ja nur so eine idee von mir, mit wir nicht rätseln müssen...
Frank
Zitat von @martenk:
Hallo
habe ein vba Script geschrieben - nun ein Problem - wenn ich das script laufen lassen - werden in allen Ordner die Mails nicht mehr angezeigt
Hallo
habe ein vba Script geschrieben - nun ein Problem - wenn ich das script laufen lassen - werden in allen Ordner die Mails nicht mehr angezeigt
du machst ja sachen.... dann lass mal das script nicht laufen, dann ist ja alles gut
Frank
Hallo Frank,
das Script macht nur eines - wenn eine Mail in den Ordner Booking kommt, dann speichert es die Mail unter mails ab und verschiet im Anschluss die Mail
das Script macht nur eines - wenn eine Mail in den Ordner Booking kommt, dann speichert es die Mail unter mails ab und verschiet im Anschluss die Mail
Sub MoveItems()
Dim myNameSpace As Outlook.NameSpace
Dim myInbox As Outlook.Folder
Dim myDestFolder As Outlook.Folder
Dim myItems As Outlook.Items
Dim myItem As Object
Set myNameSpace = Application.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox).Folders("Booking")
Set myItems = myInbox.Items
Set myDestFolder = myNameSpace.GetDefaultFolder(olFolderInbox).Folders("PS")
Set myItem = myItems.Find("[SenderName] = 'Book'")
While TypeName(myItem) <> "Nothing"
myItem.Move myDestFolder
Set myItem = myItems.FindNext
Wend
End Sub
Emails werden nicht mehr angezeigt
Na wenn du sie verschiebst sind sie nicht mehr da wo sie mal waren, logisch oder?! 
On Error Resume Next
Btw. wäre doch sinnvoll sich die Fehler mal anzeigen zu lassen anstatt sie mit dieser Anweisung still und heimlich weg zu pusten, dann siehst du auch gleich schwarz auf weiß wo dein Problem liegt. Copy n Paste ist eben doch nicht der heilige Gral der Programmierung ...
die mails werden in allen ordner nicht mehr angezeigt - also auch die, die von diesem Script gar nicht betroffen sind
Zitat von @martenk:
die mails werden in allen ordner nicht mehr angezeigt - also auch die, die von diesem Script gar nicht betroffen sind
Dann hast du einen Ansichtsfilter aktiviert oder deine Mailbox hat einen Knacks.die mails werden in allen ordner nicht mehr angezeigt - also auch die, die von diesem Script gar nicht betroffen sind
Sub Application_Startup()
Wenn man das beim Application Start laufen lässt ohne das die Mailbox schon komplett initialisiert ist und das auf Fehler läuft möglich das MAPI absemmelt, also behebe erst mal die offensichtlich groben Fehler wie z.B. in Zeile 16 oben im Script und lass das erst laufen wenn die Session angemeldet ist (MAPILogonComplete Event).
wenn ich outlook ohne vba laufen lassen, dann geht es ja - kann dann doch nicht an der mailbox liegen - oder?
wie meinst du das mit MAPILogonComplete Event
weil es muss ja auch laufen, wenn mails in den Ordner kommen, damit es dann auch ausgelöst wird das script
weil es muss ja auch laufen, wenn mails in den Ordner kommen, damit es dann auch ausgelöst wird das script
Bidde
https://docs.microsoft.com/de-de/office/vba/api/outlook.application.mapi ...
, das Application_Startup() Event wird wir der Name schon suggeriert nur einmal beim Start von Outlook ausgelöst!
Wenn du es bei neuen Mails starten willst musst du das aus dem NewMailEx Event heraus starten.
https://docs.microsoft.com/de-de/office/vba/api/outlook.application.newm ...
Findest du hier im Forum auch etliche Beispiele wenn du mit dem Stichwort NewMailEx suchst.
https://docs.microsoft.com/de-de/office/vba/api/outlook.application.mapi ...
weil es muss ja auch laufen, wenn mails in den Ordner kommen, damit es dann auch ausgelöst wird das script
Das macht aber dein Skript oben erst recht nicht , das Application_Startup() Event wird wir der Name schon suggeriert nur einmal beim Start von Outlook ausgelöst!Wenn du es bei neuen Mails starten willst musst du das aus dem NewMailEx Event heraus starten.
https://docs.microsoft.com/de-de/office/vba/api/outlook.application.newm ...
Findest du hier im Forum auch etliche Beispiele wenn du mit dem Stichwort NewMailEx suchst.
lieben Dank für deine Hilfe
