Lotus Notes, Excel umbenennen
20.02.2013 14:45:28
Manfred
habe über das Forum ein Makro gefunden und geändert
Das Tabellenblatt EnP wird kopiert und als Anhang ins Lotus Notes gesetzt.
Der Name ist nun immer Mappe1.xls. Kann mir jemand schreiben wie ich den Namen aus der Zelle C44 lesen kann und auch so ins Lotus Notes als Anhang kopiert wird ?
zB. EnP_12345.xls, sowas soll rauskommen.
Für eure Hilfe wäre ich sehr dankbar.
Sub Send_Lotus_Notes_Email_03()
Dim Adresse
Dim Betreff
Sheets("EnP").Copy
Adresse = "Name@Email.de"
Betreff = Sheets("EnP").Range("C45")
ActiveWorkbook.SendMail Adresse, Betreff
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub
Mit freundlichen GrüßenManfred