Sende mail fra Access97 gennem Lotus Notes 5

you can try this link
http://support.microsoft.com/default.aspx?scid=KB;en-us;112133

Uden at vide det, så tror jeg måske at du skal kigge i dine referencer og se om du kan finde en reference til Notes (den kunne f.eks. hedde noget i retning af "Lotus Notes x.x Object Library" - hvis den følger samme terminologi som Microsoft).

Herefter skal din kode laves om, således at du f.eks. starter med:
Dim oNotes as Notes.application
oNotes.createitem(....


Det er umuligt for mig, at sige noget om syntaksen. Men den kan du måske finde i online-dokumentationen til Notes?

Jeg har prøvet den side som du henviser til. Jeg har der læst om Mapi og Vim protokoller og jeg har downloaded MapiVIM.dll som jeg har prøvet at lægge i mit Windows\system32 bibliotek. Jeg kalder dll filen fra win.ini. Intet resultat. Herefter har jeg prøvet at omdøbe filen til mapi32.dll - det virker stadig ikke. Informationen på den side du henviser til henviser til Access 1.0 -/1.1 -/2.0. Access97 er måske noget andet ??

Jeg har fundet noget kode på nettet som virker sammen med svar fra thomasjepsen. Her er min løsning hvis som andre kan forsøge sig med.
Åbn din AccesDb i Code og vælg [Tools - Referenses.. - og sæt flueben ud for Lotus Domino Objects. Skriv herefter følgende kode til en Cmd-knap.

Private Sub Kommandoknap0_Click()
Dim Notesdb As Object
Dim Notesdoc As Object
Dim Notesrtf As Object
Dim Notessession As Object
Set Notessession = CreateObject("Notes.Notessession")
Set Notesdb = Notessession.getdatabase("", "")
Call Notesdb.openmail
Rem make new mail message
Set Notesdoc = Notesdb.createdocument
Call Notesdoc.replaceitemvalue("Sendto", "strmailadresse") 'strmailadresse = "Mail-adresse"
Call Notesdoc.replaceitemvalue("Subject", "stremne") 'stremne = "Emne"
Set Notesrtf = Notesdoc.createrichtextitem("body")
Call Notesrtf.appendtext("Report")
Call Notesrtf.addnewline(2)
Rem attach error report doc
Call Notesrtf.embedobject(1454, "", "strpath", "mail.rtf") 'strpath = Stien -/Path på den fil som du vil
'sende "C:\Windows\xxxxxx"
Rem send message
Call Notesdoc.send(False)
Set Notessession = Nothing
'gb located the following snippet for passing the password
Dim MailPassword As String
Dim inSession As Notessession
Set inSession = CreateObject("Lotus.NotesSession")
Call inSession.Initialize(MailPassword)

End Sub