6
Makro: geöffnetes Excel Dokument per Anlage mit OL versenden
Hallo zusammen,
Kann mir jemand schnell ein Makro zeigen/posten wo ich sehe, wie man per Makro ein neues Outlook Mail macht und das geöffnete Excel Dokumen als Anhang anfügt.
Mailadresse: test@test.ch
Subject: Neue Büromaterialbestellung
Text; Guten Tag Frau Rommel, es wurde gerade eine neue Büromaterialbestellung erfasst.
Vielen Dank für eure Hilfe!
Kann mir jemand schnell ein Makro zeigen/posten wo ich sehe, wie man per Makro ein neues Outlook Mail macht und das geöffnete Excel Dokumen als Anhang anfügt.
Mailadresse: test@test.ch
Subject: Neue Büromaterialbestellung
Text; Guten Tag Frau Rommel, es wurde gerade eine neue Büromaterialbestellung erfasst.
Vielen Dank für eure Hilfe!
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: 13376
Url: https://administrator.de/contentid/13376
Printed on: April 25, 2024 at 12:04 o'clock
6 Comments
Latest comment
Hi,
versuch mal folgendes:
Sub Mail_Senden()
ActiveWorkbook.SendMail "test@test.ch", "Neue Büromaterialbestellung", False
End Sub
Der dritte Parameter legt fest, ob du eine Empfangsbestätigung erhalten willst.
Wie man den Body(Text) sendet habe ich nicht raus gefunden, da kannst du dir vielleicht
mit einer Signatur in OE helfen
Gruß Psycho
versuch mal folgendes:
Sub Mail_Senden()
ActiveWorkbook.SendMail "test@test.ch", "Neue Büromaterialbestellung", False
End Sub
Der dritte Parameter legt fest, ob du eine Empfangsbestätigung erhalten willst.
Wie man den Body(Text) sendet habe ich nicht raus gefunden, da kannst du dir vielleicht
mit einer Signatur in OE helfen
Gruß Psycho
Habe neues Makro Entwickelt:
Sub AktuellesDokument_Als_Email_Senden()
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = "rommel@xyz.ch"
.Subject = "Post ist da!"
.Body = "Das Dokument finden Sie im Anhang." 'Das ist der Text
.Attachments.Add ThisWorkbook.FullName
.Display 'hier geht auch .Send, aber Outlook zeigt dann eine Warnung an "Zugriff durch fremde Anwendung etc."
End With
'Senden der Tastenkombination ALT + S, um die angezeigte Email zu "senden" (liegt danach im Postausgang)
'dies ist nur nötig, wenn Sie oben NICHT .Send verwendet haben, Sie können beide Varianten testen...
SendKeys "%s", True
Set objMail = Nothing
Set objOutlook = Nothing
End Sub
Sub AktuellesDokument_Als_Email_Senden()
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = "rommel@xyz.ch"
.Subject = "Post ist da!"
.Body = "Das Dokument finden Sie im Anhang." 'Das ist der Text
.Attachments.Add ThisWorkbook.FullName
.Display 'hier geht auch .Send, aber Outlook zeigt dann eine Warnung an "Zugriff durch fremde Anwendung etc."
End With
'Senden der Tastenkombination ALT + S, um die angezeigte Email zu "senden" (liegt danach im Postausgang)
'dies ist nur nötig, wenn Sie oben NICHT .Send verwendet haben, Sie können beide Varianten testen...
SendKeys "%s", True
Set objMail = Nothing
Set objOutlook = Nothing
End Sub
Hallo,
bei den beiden Beispielen hier, habe ich bei Word
Dokumenten das Problem immer die Meldung "Laufzeitfehler 424" - " Objekt erforderlich"
zu bekommen.
Was mache ich falsch?
Gruß
Dirk
bei den beiden Beispielen hier, habe ich bei Word
Dokumenten das Problem immer die Meldung "Laufzeitfehler 424" - " Objekt erforderlich"
zu bekommen.
Was mache ich falsch?
Gruß
Dirk
Dieses Makro ist für Excel programmiert (Siehe z.B workbook....)
Ok, das habe ich kapiert. Gibts denn auch eines für WORD?
Hallo,
bei den beiden Beispielen hier, habe ich bei
Word
Dokumenten das Problem immer die Meldung
"Laufzeitfehler 424" - "
Objekt erforderlich"
zu bekommen.
Was mache ich falsch?
Gruß
Dirk
bei den beiden Beispielen hier, habe ich bei
Word
Dokumenten das Problem immer die Meldung
"Laufzeitfehler 424" - "
Objekt erforderlich"
zu bekommen.
Was mache ich falsch?
Gruß
Dirk
Du hast das Dokument vorher nicht gespeichert , und Outlook findet dann keine Datei zum anhängen !!!
für Word nimmst du folgendes Makro:
Sub AktuellesDokument_Als_Email_Senden()
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(olMailItem)
With objMail
.To = "rommel@xyz.ch"
.Subject = "Post ist da!"
.Body = "Das Dokument finden Sie im Anhang." 'Das ist der Text
.Attachments.Add ActiveDocument.FullName
.Display
End With
End Sub
