Outlook Msgbox beim Öffnen?

Hallo zusammen,

ich möchte beim Öffnen meines Outlooks gerne daran erinnert werden, einen Blick in die Junk-Mails zu werfen. Eine schlichte MsgBox würde mir da vollkommen reichen. Leider habe ich von VBA im Gesamten wenig Ahnung, bei Outlook quasi gar keine :-)

Mit folgendem Code habe ich es versucht - aber beim Öffnen der Outlook App passiert leider gar nichts.

Private Sub Application_Startup()
MsgBox "Bitte E-Mails im JUNK prüfen!", vbOKOnly, "Junk-Mails"
End Sub

Kann mir jemand sagen was ich falsch mache oder noch besser, wie es richtig zu machen ist?

Besten Dank schon mal.

LG, Chris

2 Antworten

Vom Beitragsersteller als hilfreich ausgezeichnet

Mika2401

07.12.2022, 16:25

Um eine Nachricht beim Öffnen von Outlook anzuzeigen, müssen Sie zunächst sicherstellen, dass die VBA-Umgebung in Outlook aktiviert ist. Dazu können Sie folgende Schritte ausführen:

Öffnen Sie Outlook und klicken Sie auf "Datei" und dann auf "Optionen".
Wählen Sie in den Optionen "Erweitert" und dann "Makrosicherheit".
Stellen Sie sicher, dass die Option "Makros aktivieren" ausgewählt ist.

Anschließend müssen Sie ein neues VBA-Projekt in Outlook erstellen. Dazu können Sie folgende Schritte ausführen:

Klicken Sie auf "Datei" und dann auf "Optionen".
Wählen Sie in den Optionen "Erweitert" und dann "Entwicklertools".
Klicken Sie im Entwicklertools-Menü auf "Visual Basic".
Klicken Sie in der Visual Basic-Umgebung auf "Einfügen" und dann auf "Modul".
Kopieren Sie den oben angegebenen Code in das Modul und klicken Sie auf "Speichern".

Dies sollte nun bewirken, dass beim Öffnen von Outlook eine MsgBox angezeigt wird. Bitte beachten Sie, dass der oben angegebene Code nur funktioniert, wenn er im richtigen Kontext ausgeführt wird. Wenn Sie ihn direkt in eine andere Anwendung einfügen, wird er möglicherweise nicht funktionieren.

Funfroc

Beitragsersteller

07.12.2022, 17:03

Ok, jetzt tut es mir fast leid, euch mit der Frage belästigt zu haben :-)

Es lag natürlich schlicht und ergreifend an der Makrosicherheitseinstellung - die wiederum kann ich leider gar nicht beeinflussen, da es dazu eine firmenweite Gruppenrichtlinie gibt.

Dann muss wohl doch eher eine tägliche Aufgabe her...

PWolff

07.12.2022, 16:17

https://stackoverflow.com/questions/52614805/application-startup-not-firing

Ich würde ja daran überlegen, Outlook über eine Batch-Datei zu starten, die vorher (oder direkt nachher) den Text anzeigt.

Woher ich das weiß:Recherche

Ähnliche Beiträge

VBA Code Outlook Mails als gelesen markieren?

Hallo zusammen,

ich habe ein VBA Script entdecken können, welches E-Mails beim Verschieben in einen bestimmten Ordner automatisch als gelesen markiert. Leider benötige ich diese Funktion aber für mehrere Ordner, bzw. eigentlich für alle (also immer wenn ich eine Mail in einen anderen Ordner verschiebe, soll diese als gelesen markiert werden).

Hat jemand eine Idee, wie ich dieses Script anpassen kann, oder ein anderes Script, damit das funktioniert?

Ich nutze ein Office 365, falls dies relevant ist.

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
  Dim Ns As Outlook.NameSpace
  Dim F As Outlook.MAPIFolder

  Set Ns = Application.GetNamespace("MAPI")
  Set F = Ns.GetDefaultFolder(olFolderInbox)
  Set F = F.Folders("test")
  Set Items = F.Items
End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
  Item.UnRead = False
  Item.Save
End Sub

Vielen lieben Dank vorab :)

...zum Beitrag

Outlook Junk-E-Mails werden nicht berücksichtigt?

Hallo,

ich habe das Problem, dass weder bei Outlook Web, noch Outlook Mobile oder bei meinem festinstallierten Outlook (mein Outlook mit Outlook Exchange verbunden) meine gesperrten E-Mail Absender nicht berücksichtigt werden. Auch Regeln werden nicht berücksichtigt.

Wenn ich die Regeln oder auch Absenderlisten in der Web Version erstelle, erscheinen Sie zwar auch bei meinem festinstallierten Outlook, allerdings gelangen die E-Mails weiterhin überall in den Posteingang.

Die Regeln sollten dann im Bestfall auch bei Outlook Mobile berücksichtigt werden, dies ist aktuell auch dort nicht der Fall.

Weiß jemand woran es liegt bzw. welche Einstellungen ich hier vornehmen muss?

Besten Dank vorab und Viele Grüße!

...zum Beitrag

Bild aus Excel per VBA in Outlook Mail?

Hi Leute,

ich stehe gerade etwas auf dem Schlauch.

Ich habe einen Bereich aus Excel als Bild in der Zwischenablage:

Range("D100:Z04").CopyPicture xlScreen, xlBitmap

Wie bekomme ich den jetzt in eine Email rein?

  Set OutApp = CreateObject("Outlook.Application")
  Set OutMail = OutApp.CreateItem(0)

  On Error Resume Next
  With OutMail
    .To = "test@test.com"
    .CC = ""
    .BCC = ""
    .Subject = "This is the Subject line"
    .HTMLBody = RangetoHTML(rng)
    .Display
  End With
  On Error GoTo 0

Hab es schon mit

-Body = SendKeys "^V" probiert aber das scheint nicht zu funktionieren.

In der Zwischenablage ist es. Wenn ich eine neue Mail öffne und Strg+V drücke wird es mir wie gewünscht eingefügt. Nur über VBA kriege ich das nicht hin.

Sorry fürs blöd anstellen und danke schon mal für eure Hilfe.

Chris

...zum Beitrag

VBA Word zu PDF und dann als E-Mail senden?

Hallo,

ich weiß, in verschiedenen Foren gibt es schon Hilfestellungen zu VBA, PDF und Co. - jedoch war nach tagelanger Suche nicht das RICHTIGE dabei, weshalb ich hoffe, dass man mir hier weiterhelfen kann.

Ich möchte, dass das ausgefüllte Formular (Formularfeld wurde per VBA erstellt), welches in Form eines Word-Dokuments vorhanden ist, durch einen Klick umgewandelt wird als PDF und dann als E-Mail (via Outlook) verschickt werden kann.

Ich hoffe, es kann mir jemand weiterhelfen.

Grüße

helppppppppp

...zum Beitrag

Fehlermeldung bei Outlook geht einfach nicht weg?

Vor kurzem habe ich in Outlook auf dem Mac versucht, eine Mail mit vielen Dateien zu verschicken, das ging aber nicht, da die Dateien insgesamt zu groß waren. Seither wird mir immer beim Öffnen des Programms, und auch während das Programm offen ist, einfach alle paar Minuten, folgende Meldung angezeigt:

Ich habe die nicht versendete E-Mail schon längst aus dem Mailausgang und den Entwürfen gelöscht, aber trotzdem kommt die Meldung immer wieder. Neustart des Programms oder des Computers ändert auch nichts. Wie bekomme ich das weg?

...zum Beitrag

Outlook Fehlermeldung?

Ich habe schon länger das Problem, das ich meine E-Mails von Outlook nicht merh öffnen kann, weil dann diese Fehlermeldung kommt. Weiss jemand wie man diesen Fehler beheben kann.

(Persönliche Informationen sind weiss übermalt)

...zum Beitrag

Outlook Probleme am iPhone?

Guten Morgen,

ich habe ein iPhone und habe Probleme mit meinem Outlook Account.

eingehende Mails werden nicht als Benachrichtigung angezeigt, sondern erscheinen nur, wenn ich Outlook öffne (Hintergrundaktualisierungen und Benachrichtigungen sind aktiviert)
in der Outlook App habe ich mein Outlook Konto und mein iCloud Konto angelegt, bei dem Kalender wird mir aber nur der iCloud Kalender angezeigt und den Outlook Kalender sehe ich nur am Laptop.

Wer kann mir helfen?

Vielen Dank!

...zum Beitrag

VBA Wenn eine Zelle mehrerer Spalten leer dann msgbox?

Hallo zusammen,

ich habe vor in mehreren Spalten zu kontrollieren, ob sich eine leere Zelle befindet. Wenn ja soll eine Msgbox angezeigt werdne und der Sub soll beendet werden. Wenn nicht soll er fortfahren. Allerdings kommt es bei mir zu einer Fehlermeldung "Typen unverträglich". Wo hat sich der Fehler eingeschlichen? End If befindet sich weiter unten.

Sub SendMeetingRequest_2()

Dim Bereich As Range

Set Bereich = Range("F2:H41", "B2:B41") 'Zellbereich

With Application.WorksheetFunction

Dim objOL As Object 'As Outlook.Application

Dim objAppt As Object 'As Outlook.AppointmentItem

'Const olAppointmentItem = 1

Const olMeeting = 1

Dim ReminderTime As Long

Dim lfdnr As Integer

lfdnr = 2

'Überprüfung erstellen falls Aufgaben leer sind

'lfdnr = 4

If Bereich.Value = "" Then

MsgBox "Bitte fehlende Daten eintragen"

Call Leere_zellen_hervorheben

Exit Sub

Else

Danke für eure Hilfe!

...zum Beitrag

Outlook-Benachrichtigung (iOS)?

Hallo Leute,

ich nutze seit einiger Zeit die Outlook-App und mich nervt, dass die Benachrichtigung immer so anonym dargestellt wird (siehe Anhang).

Weder in den iPhone- (bzw. Mitteilungs-)Einstellungen, noch in der App selbst kann ich die Anzeige „Neue Nachricht - Öffnen Sie Outlook, um Ihre Nachricht zu lesen.“ ausschalten und stattdessen direkt die eigentliche E-Mail anzeigen lassen. Ich bin jemand, der gerne direkt sieht, ob es was Wichtiges ist oder nicht. Es nervt einfach, immer die App öffnen zu müssen, damit man sieht, was man bekommen hat.

Weiss einer, wie das funktioniert? Ich bin gefühlt alles durchgegangen und finde es nicht, nicht mal im Internet.

ich wäre um eine Lösung dankbar.

Schönen Tag euch noch ✌🏼

...zum Beitrag

Excel VBA eine Datei öffnen, andere Datei auch öffnen?

Ich habe in Excel zwei Dateien. Nennen wir Sie A und B.

Wenn ich A öffne, erscheint beim öffnen eine msgbox in der ich gefragt werde, ob ich auch B öffnen will. Drücke ich Yes wird auch B geöffnet.

Private Sub Workbook_Open()

Dim a As Integer

a = MsgBox("B.xlsm auch öffnen?", vbYesNo)

If a = vbYes Then

Workbooks.Open "C:\Users\...\B.xlsm"

Workbooks("A_.xlsm").Activate

End If

End Sub

Das selbe habe ich auch für B erstellt. D. h. ich öffne B und werde gefragt ob ich A öffnen will. Gehe ich auf Yes wird auch A geöffnet.

Soweit klappt alles. Allerdings:

Öffne ich z. B. A, dann werde ich nach B öffnen gefragt, klicke ich auf Yes wird B geöffnet und A aktiviert. Allerdings erscheint mir nun, da B geöffnet wird nochmal die Msgbox mit a = MsgBox("A.xlsm auch öffnen?", vbYesNo). Dies hatte ich ja so festgelegt, falls B geöffnet wird. Allerdings ist dies unsinnig, da A ja bereits offen ist.

Wie kann ich diese zweite MSGbox unterdrücken? D.h. ich öffne A, drücke Yes, B wird geöffnet. Nun soll das Ereignis Private Sub Workbook_Open() für B nicht ausgeführt werden, damit die msgbox ob ich A auch öffnen will nicht erscheint.

MFG

...zum Beitrag

Outlook E-Mail, wie "Junk Mail", entfernen, deaktivieren??

Wie kann man bei Outlook den Junk Mail Ordner deaktivieren oder sogar löschen? Ich möchte gerne das alle, egal welche, Emails direkt in Eingang kommen und gar nicht erst in den Junk Ordner, wenn Outlook eine Spam Mail vermutet?

Danke

...zum Beitrag

Frage zu Office 365 bzw OneDrive, was bedeutet eine Kontodeaktivierung?

Wenn im OneDrive Konto (welches gar nicht aktiv genutzt wird) diese angezeigt wird:

"Kontodeaktivierung: Wir haben festgestellt, dass dieses Office 365-Konto nicht autorisiert ist. Das Konto wird auf Jan 10 2023 geschlossen und sie verlieren den Zugriff auf ihre Dateien auf diesem Datum."

Heißt das, dass am 10.01.2023 die Office 365 Programme wie Outlook nicht mehr funktionieren werden? Und wenn ja, kann man dann mittels neuem Office 365 Key wieder auf seine E-Mail Konten in Outlook zugreifen?

...zum Beitrag

Outlook merkwürdige Benachrichtigung?

Hallo.

ich wollte gerade meinen Outlook acc im browser (chrome) öffnen und habe diese Benachrichtigung bekommen. Ich konnte sie weder wegklicken, noch hat schließen des Browsers und eine erneute Anmeldung geholfen. Sie war immer da. Nichtmal der Button „deinstallieren“ hat funktioniert. Einzig „OK“. Was war das für eine Meldung? Nachdem ich auf okay gegangen bin wurde ich abgemeldet… habe ich nun etwas zu befürchten?

...zum Beitrag

Outlook Absender Sperren /& Blockieren funktioniert nicht, warum?

Also ich werde schon ganz wahnsinnig weil mir alle ideen langsam ausgehen und meine email Adresse heftig zu gemüllt wird. Um in der Spam Dschungel klar zu kommen markiere ich immer wichtige emails rot (obwohl es nicht Sinn der Sache ist aber ich war zu faul bisher mal aufzuräumen). Aber mittlerweile schicken die Spammer Emails auch als Prio Hoch und als Aufgabe und täglich über 20 Mails von denen. und bringen meine "Ordnung" durcheinander.

Die Absender sind auch in der "Absender Sperren" liste aber trotzdem können die mir fröhlich weiter in mein Posteingang rein spammen. Es wird weder in Junk verschoben noch direkt gelöscht... Auch habe ich zum testen ein Regel gestellt das er den Absender in Junk verschieben soll, selbst DAS funktioniert nicht. Ich muss immer manuell löschen... Kotzt mich allmählich ab... liegt es daran weil die es als Prio hoch usw. Abschicken oder was? Wenn ja wie kann man das umgehen?

Das kann echt nervig sein bei der Arbeit während ich was erwarte oder sonst was mache gefühlt alle 5min unten rechts pop up von outlook "Sie sind der GEWINNER" "Neue Potenzmittel" "Mahnung" "Zahlungsaufforderung" FUUUUU.... Abschalten will ich auch nicht weil ich schon gerne sehe wenn eine email kommt was ich erwarte.

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen