AW: Emailversand über Citrix
19.02.2007 09:00:17
Frederic
Hallo Hanseuli,
habe heute morgen eine Mail von unserer IT bekommen, dass excel u notes über Citrix nicht laufen.
Im Moment steht folgendes Notes-Makro im Code:
Sub SendNotesMail2()
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 = "adelheid.engelmann@schwan-stabilo.com"
MailDoc.Subject = "Datenblatt RKA SAP"
'MailDoc.Body =
MailDoc.SAVEMESSAGEONSEND = True
Set rtItem = MailDoc.createrichtextitem("Body")
rtItem.APPENDTEXT ("Was send by 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
Sheets(1).[b127] = Date
Sheets(1).[d127] = Time
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Belegerfassung").Visible = True
Sheets("Belegerfassung").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("RKA").Select
Sheets("Belegerfassung").Visible = xlVeryHidden
End Sub
Muss im Bezug auf den neuen Server der Code abgeändert werden? Kann ich mir eigentlich nicht vorstellen.
Gruß.
Frederic