Guten Tag,
ich bin dabei ein Makro zu erstellen, welches mir auf der Arbeit einige Arbeitsschritte ersparen würde. Allerdings kenne ich mich nicht wirklich mit VBA aus. Bis jetzt sieht mein Makro wie folgt aus (aus dem Internet zusammen getüftelt):
Sub xy()
'
' xy Makro
'
' Verweis auf Microsoft Outlook Bibliothek setzen
Dim objOL As Object
Dim objMail As Object
Dim Bezeichnung As String
Dim MAdr As String '
Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(0)
Bezeichnung = ActiveWorkbook.Name
MAdr = ""
Application.ScreenUpdating = False
' Meldung:
MsgBox ("xy wurde erfolgreich als Anhang angefügt.")
Application.Goto Sheets("Eingabemaske").Range("K5")
Application.ScreenUpdating = True
With objMail
.To = " " ‘Empfänger
.Subject = Range("L2")
.Body = ""
.Attachments.Add ActiveWorkbook.FullName
.Display ' Display für Indirektversand oder .Send für Direktversand
End With
End Sub
Verbesserung 1)
Das Makro wird per Steuerelement ausgelöst und versendet das Excel Dokument per Mail. Nun würde ich aber gerne noch einen Bereich des Tabellenblattes „Tabelle1“ übernehmen und in den Mailtext kopieren, sodass man in den Emails besser danach suchen kann.
Verbesserung 2)
Der erzeugte Anhang soll den Namen aus einer Verkettung "Test", "Zelle C5" und das Datum enthalten. Danach/Davor soll der Anhang in ein angegebenes Verzeichnis gespeichert werden.
Ich hoffe auf eure Idee und wäre sehr dankbar.
LG Manu
|