Hallo,
ich stehe vor folgendem Problem:
ich möchte Emails mit einem bestimmten Betreff per Regel aus Outlook 2003 heraus drucken. Dabei soll aber nur der HTML Inhalt der Mail ausgedruckt werden.
Ich denke das könnte man mit einem VB Skript erledigen - ich bin aber nicht gerade der VB König. 
kann mir da jemand einen Tipp geben wie ich das anstelle?
Gruß
Fronk
Hi Fronk,
ich möchte Emails mit einem bestimmten Betreff per Regel aus
Outlook 2003 heraus drucken. Dabei soll aber nur der HTML
Inhalt der Mail ausgedruckt werden.
Was bitteschön ist der Html-Inhalt einer Mail?
Für mich gibt es mails im Text-Format und im Html-Format.
Der Html-Inhalt einer Html-Mail ist für mich dann der gesamte Text im Textfeld.
Was bedeutet „per Regel“ genau, eine Nachrichtenregel in OL die besagt, jede ankommende Mail mit dem Wort „wer-weiss-was“ im Betreff automatisch sofort ausdrucken?
Oder bedeutet „per Regel“ den Eingangsordner von OL durchforsten und alle mails ausdrucken die im Betreff ein bestimmtes Wort enthalten.
Ich denke das könnte man mit einem VB Skript erledigen - ich
bin aber nicht gerade der VB König.
einen Tipp geben wie ich das anstelle?
Hast du VB? Oder meinst du OL-Vba?
Gruß
Reinhard
Hi Fronk,
ich möchte Emails mit einem bestimmten Betreff per Regel aus
Outlook 2003 heraus drucken. Dabei soll aber nur der HTML
Inhalt der Mail ausgedruckt werden.Was bitteschön ist der Html-Inhalt einer Mail?
Für mich gibt es mails im Text-Format und im Html-Format.
Der Html-Inhalt einer Html-Mail ist für mich dann der gesamte
Text im Textfeld.
Genau das meine ich! Es soll eben nicht die Kopfzeile „gesendet von… gesendet an…“ etc. gedruckt werden. Also nur der per HTML formatierte Inhalt der Mail.
Was bedeutet „per Regel“ genau, eine Nachrichtenregel in OL
die besagt, jede ankommende Mail mit dem Wort „wer-weiss-was“
im Betreff automatisch sofort ausdrucken?
Ja, genau!
Oder bedeutet „per Regel“ den Eingangsordner von OL
durchforsten und alle mails ausdrucken die im Betreff ein
bestimmtes Wort enthalten.
nein
Ich denke das könnte man mit einem VB Skript erledigen - ich
bin aber nicht gerade der VB König.
einen Tipp geben wie ich das anstelle?Hast du VB? Oder meinst du OL-Vba?
ups, ja ich meine OL Vba
Danke für die schnelle Anwort!
Gruß
Fronk
Genau das meine ich! Es soll eben nicht die Kopfzeile
„gesendet von… gesendet an…“ etc. gedruckt werden. Also nur
der per HTML formatierte Inhalt der Mail.Was bedeutet „per Regel“ genau, eine Nachrichtenregel in OL
die besagt, jede ankommende Mail mit dem Wort „wer-weiss-was“
im Betreff automatisch sofort ausdrucken?Ja, genau!
Hi Fronk,
in OL, Alt+F11, Doppleklick links auf "DieseOutlookSitzung, gib da mal ein:
Private Sub Application_NewMail()
MsgBox „da kam was“
End Sub
und lass dir oder schick dir selbst paar mails, kommt da immer das Meldungsfensterchen?
Sorry, bin nicht fit in OL-Vba, muß mich da rantasten.
Wenn das Fensterchen immer kommt sind wir schon einen großen Schritt weiter.
Gruß
Reinhard
yepp, „Da kam was“!!! 
funzt!
yepp, „Da kam was“!!!
Hi Fronk,
teste mal dieses:
Option Explicit
'
Dim WithEvents myOlApp As Outlook.Application
'
Private Sub Application\_NewMail()
Set myOlApp = CreateObject("Outlook.application")
MsgBox "aktiviert neu"
End Sub
'
Private Sub Application\_Startup()
Set myOlApp = CreateObject("Outlook.application")
MsgBox "aktiviert Start"
End Sub
'
Private Sub myOlApp\_NewMail()
Dim myExplorers As Outlook.Explorers, x, s
Dim myFolder As Outlook.MAPIFolder, appExcel
Const Pfad As String = "h:\"
MsgBox "Neu"
On Error Resume Next
Set myOlApp = CreateObject("Outlook.application")
Set appExcel = GetObject(, "Excel.Application")
If Err.Number = 429 Then
'--\>Fehler bei ActiveX-Erstellung, vermutlich ist Excel nicht gestartet!
Err.Clear
Set appExcel = CreateObject("Excel.Application")
If Err.Number = 429 Then
Err.Clear
MsgBox "Es konnte nicht auf 'Microsoft Excel' zugegriffen werden! Vielleicht ist Excel nicht installiert!", vbExclamation, "Fehler beim Zugriff auf MS Excel"
End If
End If
On Error GoTo 0
With appExcel
.workbooks.Add
.Visible = True
Set myFolder = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
For Each x In myFolder.Items
If x.UnRead = True Then 'And x.HTMLBody ""
.ActiveWorkbook.worksheets.Add
.ActiveWorkbook.ActiveSheet.Range("A1") = "Text"
.ActiveWorkbook.ActiveSheet.Range("A2") = x.Body
.ActiveWorkbook.ActiveSheet.Range("C1") = "Html"
.ActiveWorkbook.ActiveSheet.Range("C2") = x.HTMLBody
MsgBox x.Body
MsgBox x.HTMLBody
End If
Next x
End With
End Sub
Gruß
Reinhard
Hi Reinhard,
habs mal probiert, aber da passiert nichts. auch keine Message Box o. ä.
Gruß
Fronk