Lotus Notes
07.03.2013 14:48:23
Manfred
Das Makro funktioniert soweit ganz gut und macht was es machen soll. Es kopiert den Excelsheet in Lotus Notes und Schreibt auch noch in den Betreff.
Sub Send_Lotus_Notes_Email_JL_02()
Dim Adresse
Dim Betreff
Dim sDatei As String
sDatei = Sheets("EnP").Range("C45")
Sheets("EnP").Copy
Adresse = "1_Email@web.de, 2_email@web.de"
Betreff = Sheets("EnP").Range("C45")
With ActiveWorkbook
.SaveAs "c:\temp\" & sDatei
sDatei = .FullName
.SendMail Adresse, Betreff
.Close False
End With
Kill sDatei
End Sub
Wenn aber auf einem Rechner Laufwerk C: gesperrt ist bricht das Makro mit ner Fehlermeldung ab.Gibt es eine Möglichkeit zwei oder drei Laufwerke anzusprechen ob ein Temp-Ordner drinen ist und der Excelsheet kurz reingelegt werden kann? D.h. Wenn C: gesperrt probiere D: dann E: usw. Wenns sein muss auch auf den Desktop. Die Fehlermeldung sollte unterrückt werden können.
Mit freundlichen Grüßen
Manfred