HURRA! Es funktioniert beinahe!
27.05.2004 12:52:55
Rolf
Ich bin ja sooo Happy! Endlich habe ich herausgefunden, wie man mit Lotus Mailt!
Aber da gibt's noch einige Kleinigkeiten, die ihr bestimmt wisst:
1.
Private Sub CmdSend_Click()= Wo muss das stehen (Arbeitsmappe, Modul oder wie?)
2. Wenn ich mir das Makro per Extras-Makro-Makros... ausfüheren will, sehe ich es nicht, woran liegt das?
3. (1454, "", "G:\FKT_Produktion\Plattform\HFF\Materialbezug\Bestellungen\mik.xls")=Wie kann ich den Pfad automatisch definieren? z.B. Input Box=Name der Datei?
Hier der bisherige Code:
Private Sub CmdSend_Click()
Dim session As Object
Dim db As Object
Dim doc As Object
Dim strPath As String
Dim EmbedObj As Object 'The embedded object (Attachment)
Dim AttachME As Object 'The attachment richtextfile object
''Mail erstellen
Set session = CreateObject("Notes.NotesSession")
Set db = session.CURRENTDATABASE
Set doc = db.CREATEDOCUMENT
doc.Form = "Memo"
doc.SendTo = "fkt-lager@franke.com"
doc.CopyTo = "rolf.daetwyler@franke.com"
doc.Subject = "Test"
doc.body = "ACHTUNG!!! DIES IST EIN TEST!! BESTELLUNG NICHT AUSFÜHREN!!"
doc.SAVEMESSAGEONSEND = True
'Set up the embedded object and attachment and attach it
Set AttachME = doc.CREATERICHTEXTITEM("Attachment")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", "G:\FKT_Produktion\Plattform\HFF\Materialbezug\Bestellungen\mik.xls")
doc.PostedDate = Now()
Call doc.send(False, "rolf.daetwyler@franke.com")
Set db = Nothing
Set doc = Nothing
Set session = Nothing
End Sub
Vielen Dank! Wenn jemand Antworten weiss, dann bin ich der absolut ultimativ glücklichste Mensch auf Erden!!!
Vielen Dank!
Rolf