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 Fragesteller 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

Fragesteller

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

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 :)

...zur Frage

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!

...zur Frage

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

...zur Frage

Hat Outlook keinen echt selbstlernenden Junk-Filter wie Thunderbird?

Ich nutzte seit Jahren erfolgreich Thunderbird. Er filter genial Junk aus.

Jemand in unserer Familie muss unbedingt dieses Outlook haben (wegen des Arbeitgebers). Aber diesem Programm kann man offenbar nicht beibringen, was Junk ist. Man kann nur bestimmte Absender oder bestimmte Domains oder bestimmte Inhalte blockieren. Aber clever ist das wirklich nicht, dazu kann ich ja auch einfache Filter definieren.

Bei Thunderbird kann man auch irrtümlich als Junk markierte Mails wieder ent-junken, und er lernt ein richtiges Profil. Und bei Outlook? Warum nicht??

...zur Frage

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.

...zur Frage

Was sind Junk-Mails, und sollte ich sie öffnen?

...zur Frage

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

...zur Frage

Wenn das Outlook geöffnet habe und im Ordner Posteingang bin, bekomme ich keine neuen Mails rein?

Microsoft Office Home & Business 2016

Windows 10 PC Outlook.

Wenn ich das Outlook geöffnet habe und im Ordner Posteingang bin, bekomme ich keine neuen Mails rein. Muss das Programm immer erst schliessen und wieder öffnen, oder den Ordner kurz wechseln, damit die neuen Mails geladen werden.

Kann jemand schon etwas anfangen mit diesen spärlichen Infos und weiss die Lösung?

Danke

...zur Frage

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)

...zur Frage

Womit runterkopierte Mails (Outlook) öffnen?

hallo Computer-Wiz'ze,

Ich habe meine gesamten Dateien einschl. der mails (MS OUtlook) auf einen USB kopiert. Nun wollte ich die mails dort öffnen. Das geht aber nicht?

Erst hatte ich alle mit msg (oder msn?) verscuht zu öffnen. Nun fragt es mich, mit welcher App ich öffnen will.... Keine Ahnung

Wer weiß Rat?

danke

...zur Frage

Wie setze ich das richtig in VBA um?

Hallo,

ich habe folgenden Code in Excel VBA. Leider komme ich nicht weiter.

Ich suche einen Wert der Zelle E1 in Spalte A1.

Ist der Wert aus E1 vorhanden, soll ein Sub geöffnet werden.

Ist dieser Wert nicht vorhanden, soll eine MsgBox geöffnet werden und nach dem Schließen der Box die UserForm1.

Aktuell macht der Code folgendes: Egal ob der Wert vorhanden ist oder nicht, es wird die MsgBox geöffnet und der Code wird auch bei richtiger Zahl nicht ausgeführt.

Ich würde mich freuen, wenn mir einer helfen kann bei meiner Spielerei. Danke.

Sub suche()
Dim zelle As Range


For Each zelle In Sheets("Tabelle1").Range("A1:A1000").Cells
    If zelle.Value = Sheets("Tabelle1").Range("E1") Then
    'Sheets("Tabelle1").Activate
    zelle.Activate
    Call create
    Exit For
    Else

    MsgBox "Nr. ist nicht vorhanden!", vbExclamation
    UserForm1.Show
    Exit Sub
    End If
    'Call create
    Next
End Sub

...zur Frage

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!

...zur Frage

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

...zur Frage

Outlook nicht alle mails kommem an?

Ich habe einen Dienstaccount bei Outlook. Wenn ich an der Arbeit bin bekomme ich alle Mails ganz normal. Sobald ich mich aber zum beispiel zuhause in diesen Account einlogge. Erhalte ich entweder gar keine Mails oder nur einen Teil. Woran könnte das liegen?

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen