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!
Please also mark the comments that contributed to the solution of the article
Content-Key: 13376
Url: https://administrator.de/contentid/13376
Printed on: April 27, 2024 at 00: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
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