Domino 9 und frühere Versionen > Entwicklung

VBA Script für senden an Notes

(1/3) > >>

markoii:
weiss jemand ein VBA-Script mit dem ich aus PowerPoint heraus eine Send To Funktion integrieren kann. Mit der unteren Funktion kann ich keine Anhänge mitsenden.

Sub Mail(Adressat As String, Optional Titel As String, Optional text As String)
    Call shellexecute(0&, "Open", "mailto:" + Adressat + _
        "?Subject=" + Titel + "&Body=" + text, "", "", 1)
   
End Sub
Sub EMailVersendenUeberAPI()
    Call Mail("Harry.Hirsch@T-Online.de", "update auf homepage", _
    "Besuchen Sie doch mal wieder unsere Website auf http://www.reinke-net.de")
End Sub


wäre für jede andere Möglichkeit auch Dankbar..

güße :-[ :-[

ata:
... wenn der Mailclient auf jeden Fall Notes ist, dann über die COM-Klassen arbeiten und ein Notesobject erstellen...

ata

markoii:

--- Zitat von: ata am 21.01.03 - 11:29:30 ---... wenn der Mailclient auf jeden Fall Notes ist, dann über die COM-Klassen arbeiten und ein Notesobject erstellen...

ata

--- Ende Zitat ---

Danke dass du so schnell antwortest, aber so gut bin ich noch nicht hast du vielleicht ein Beispiel-Code. Ich arbeite auf W2k + Office 2k + R5.07a kein Outlook

grüsse :-\ :-\

ata:
... einen Beispielcode habe ich dir nicht, aber schau mal auf meiner Homepage im LousScript-Kurs unter Grundlagen | Download, dort habe ich eine Windows-Hilfedatenbank zu LotusScript-COM-Klassenprogrammierung, in der ist eigentlich alles drin was du brauchst...

ata

eknori:
Hier der Code

Sub SendNotesMail()

dim ws as workspace
dim s as object
dim db as object
dim doc as object

st ws = DBEngine.Workspaces (0)
set s = CreateObject ("Notes.NotesSession")
set db = s.CurrentDatabase
set doc = db.CreateDocument
doc.form = "Memo"
doc.SendTo= "DeinEmpfängerName"
doc.Subject = "DeinSubject"
doc.Body = "DerInhaltDerMail"
call doc.send (true)
ws.close

end sub

eknori

Navigation

[0] Themen-Index

[#] Nächste Seite