Lokale Datei per Makro löschen
26.08.2004 07:12:33
Frederic Anders
ich hab gestern mit viel Hilfe von Euch ein 100 % funktionstüchtiges ExportMakro von Excel über Lotus Notes erstellen können. Wie gesagt, es funktioniet einwandfrei - hierzu allen, die mir geholfen haben, tausend Dank.
Eine Frage hätte ich allerdings noch:
In unten stehendem Makro speichert das Makro die Datei auf C:\Temp\ zwischen.
Nach dem Senden soll es diese Datei wieder löschen. Geht das? Was für ein Befehl muss ich hier noch anhängen? Tausend Dank im voraus.
Frederic
Sub SendNotesMail()
Dim MailDoc As Object
Dim Maildb As Object
Dim Session As Object
Set Session = CreateObject("Notes.NotesSession")
Dim rtItem As Object
Dim EmbedObj As Object
Dim Empfänger As String
Dim UserName As String
Dim MailDbName As String
Dim Recipient As String
Dim wkbBasis As Workbook
Dim wksBasis As Worksheet
Dim strAnhang As String
' ++ Tabellenblatt in eine neue Mappe kopieren ++
' ++ und unter einem neuen Namen(A1) speichern ++
' ++ Dateiname + Pfad in strAnhang und schließen ++
Set wkbBasis = ActiveWorkbook
Set wksBasis = ActiveSheet
wksBasis.SaveAs "C:\Temp\RKA.xls"
strAnhang = ActiveWorkbook.FullName
' ######### In Notes Verschicken #########
Set Maildb = Session.currentdatabase
Set MailDoc = Maildb.CreateDocument()
MailDoc.Form = "Memo"
MailDoc.SendTo = "frederic.anders@schwan-stabilo.com"
MailDoc.Subject = "Übermittlung des Datensatzes der RKA"
'MailDoc.Body =
MailDoc.SAVEMESSAGEONSEND = True
Set rtItem = MailDoc.createrichtextitem("Body")
rtItem.APPENDTEXT ("Mail von Lotus Notes")
rtItem.ADDNEWLINE (1)
Set EmbedObj = rtItem.embedObject(1454, "", strAnhang)
MailDoc.PostedDate = Now()
MailDoc.Send 0, Recipient
MailDoc.Save True, False
Set Maildb = Nothing
Set MailDoc = Nothing
Set rtItem = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Belegerfassung").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("RKA").Select
End Sub