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 25.10.2017, 11:30   #1
maates
Neuer Benutzer
Neuer Benutzer
Standard VBA - OL 2010 - Makro beim erstellen einer neuen Mail

Hallo!

Ist es möglich, Outlook dazu zu bewegen, beim erstellen einer neuen Mail ein Makro laufen zu lassen?
Also so
1. Klick auf "Neue E-Mail-Nachricht"
2. automatisch läuft jetzt erst ein Makro

Ich suche im WEB schon den ganzen Morgen.
Finde aber nix :-(

Gruß und Danke!
Werner
maates ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 25.10.2017, 11:33   #2
mumpel
MOF Meister
MOF Meister
Standard

Hallo!

Beim Erstellen nicht. Du kannst DIr aber ein Makro erstellen welches neue Emails erzeugt. Dann kannst Du die Originalschaltfläche durch eine eigene Schaltfläche ersetzen.

Was genau soll denn beim Erstellen passieren?

Gruß, René
mumpel ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 25.10.2017, 11:38   #3
maates
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo René

Danke für die schnelle Antwort!
Künftig sollen bei uns Mails nur noch im rtf-Format erzeugt werden können.
Will man sie in html haben muss man das jedes mal erst auswählen.
Da wir oft Links verschicken müssen, möchte ich, dass meine Mails gleich in html erzeugt werden.

Gruß
Werner
maates ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 25.10.2017, 11:40   #4
markusxy
MOF Koryphäe
MOF Koryphäe
Standard

Es geht mit dem NewInspector Event.
markusxy ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 25.10.2017, 11:42   #5
maates
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hättest du evtl. ein Beispiel für mich?
Ich bin eher der Makro-Aufzeichner.
Aber das geht ja bei Outlook nicht. :-(
maates ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 25.10.2017, 11:47   #6
markusxy
MOF Koryphäe
MOF Koryphäe
Standard

Zitat: von maates Beitrag anzeigen

Ich bin eher der Makro-Aufzeichner.

In Outlook bringt das ohne Grundlagen leider nichts.

Schau dir das Beispiel in der Hilfe an.
Googel sollte ebenfalls helfen.
markusxy ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 25.10.2017, 12:00   #7
maates
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Ein bisschen kenn mich schon aus.
Ist aber nicht berühmt.

Ich habe im Netz jetzt das hier gefunden:

Private WithEvents objinspectors As Outlook.Inspectors

Private Sub Application_Startup()
Set objinspectors = Application.Inspectors
End Sub

Private Sub objinspectors_NewInspector(ByVal Inspector As Inspector)
If TypeName(Inspector.CurrentItem) = "MailItem" Then
MsgBox "newinspector"
End If
End Sub

Wenn ich eine neue Mail anlege kommt eine Msg-box.
Ich denke damit kann ich erst mal rumspielen.

Gruß und Danke
Werner
maates ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 25.10.2017, 12:05   #8
markusxy
MOF Koryphäe
MOF Koryphäe
Standard

@maates,
na bitte.
So bald man Grundkenntnisse hat, und das Stichwort kennt kann man sich eh helfen.
Den Code hättest du auch in der Hilfe gefunden.
LG Markus
markusxy ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 25.10.2017, 12:05   #9
mumpel
MOF Meister
MOF Meister
Standard

Sub NewHTMLMail()
  
  Dim olApp As Outlook.Application
  
  Set olApp = Application
       With olApp.CreateItem(0)
               .BodyFormat = olFormatHTML
               .Display
       End With
End Sub



VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media

Code erstellt und getestet in Office 14 - mit VBAHTML 12.6.0

mumpel ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 25.10.2017, 13:00   #10
maates
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Kannst du mir evtl. sagen, was ich grad verkehrt mache?

Es erscheinen nämlich 2 neue Mails.
Eine im rtf-Format und eine wie gewünscht in html

Private WithEvents objinspectors As Outlook.Inspectors

Private Sub Application_Startup()
Set objinspectors = Application.Inspectors
End Sub

Private Sub objinspectors_NewInspector(ByVal Inspector As Inspector)
Dim Mail As Outlook.MailItem
If TypeName(Inspector.CurrentItem) = "MailItem" Then
NewHTMLMail
End If
End Sub

Sub NewHTMLMail()

Dim olApp As Outlook.Application

Set olApp = Application
With olApp.CreateItem(0)
.BodyFormat = olFormatHTML
.HTMLBody = ""
.Display
End With
End Sub
maates ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 25.10.2017, 13:14   #11
mumpel
MOF Meister
MOF Meister
Standard

Geht doch ohne Extra-Prozedur.

Private Sub objinspectors_NewInspector(ByVal Inspector As Inspector)
  If TypeName(Inspector.CurrentItem) = "MailItem" Then Inspector.CurrentItem.BodyFormat = olFormatHTML
End Sub


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media

Code erstellt und getestet in Office 14 - mit VBAHTML 12.6.0


Geändert von mumpel (25.10.2017 um 13:16 Uhr).
mumpel ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 25.10.2017, 13:17   #12
mumpel
MOF Meister
MOF Meister
Standard

Übrigens:
Bitte nutze künftig das Code-Tag. Das macht die Beiträge übersichtlicher.
mumpel ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 25.10.2017, 13:25   #13
maates
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Danke für deine Antwort!
Hast recht - das mit dem Code-Tag habe ich verpennt. Sorry

Jetzt klappt es! :-)
VIELEN DANK für deine Hilfe

Gruß
Werner
maates 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 23:45 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 - 2017, 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.