Hallo,
wäre schön wenn ich hier Hilfe bekomme .Folgendes Makro sendet bei mir einen bestimmten Bereich per Mail.Zusätzlich möchte ich die gesamte Datei an die Mail anhängen .Wie lautet der Befehl?
Weiterhin bekomme ich mit +++ gekennzeichneten Zeile ab und zu schwerwiegender Fehler-woran kann das liegen?
Vielen Dank
Sub versuches()
' versuches Makro
Dim OutApp As Object, Mail As Object, i
Dim Nachricht
'Verweis auf "Microsoft Forms 2.0 Object Library" aktivieren !!
'sonst geht es nicht
'Dataobject wird gebraucht wegen der Zwischenablage
+++ Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
'Excelbereich der versendet werden soll.
'Wenn kein Bereich versendet werden soll sondern
'der Bereich bereits kopiert wurde, können sie die
'nächsten beiden Zeilen auskommentieren
Range("$AJ$2:$AQ$9").Select
'Bereich wird in die Zwischenablage kopiert
Selection.Copy
With Nachricht
.Subject = "TT Training"
'Zwischenablage wird eingefügt
.To = "@freenet.de"
.Body = "Hallo TT Freunde, hier die aktuelle Auswertung"
'Hier wird die Mail angezeigt
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
'Auf Outlook warten. Ist nicht schnell genug :-))
Application.Wait (Now + TimeValue("0:00:05"))
End Sub
|