Send mail via lotus notes fra access

Function NotesMailSend(StrModtager As String, strSubj As String, StrBody As String)

\' VBA-kode der sender mail via Notes-mailer.
\' Denne kode er testet på Notes Client Ver. 4.5
\'
\' Koden kaldes med 3 variabler, som fint kan kaldes
\' fra en formaular.
\'
\' 10-Jun-1999
\' Morten Snedker, www.access-dk.mobilixnet.dk

On Error GoTo Err_NotesMailSend

    Dim objNotes As Object
    Dim objNotesDB As Object
    Dim objNotesMailDoc As Object

    Set objNotes = GetObject(\"\", \"Notes.Notessession\")
    Set objNotesDB = objNotes.getdatabase(\"\", \"\")

    Call objNotesDB.openmail
    Set objNotesMailDoc = objNotesDB.CreateDocument

    Call objNotesMailDoc.replaceitemvalue(\"SendTo\", StrModtager)
    Call objNotesMailDoc.replaceitemvalue(\"Subject\", strSubj)
    Call objNotesMailDoc.replaceitemvalue(\"Body\", StrBody)

    Call objNotesMailDoc.Send(False)

    MsgBox \"Afsendt mail OK\", vbInformation, \"Sender notes-mail...\"

    Set objNotes = Nothing

Exit_NotesMailSend:
    Exit Function

Err_NotesMailSend:
    Resume Exit_NotesMailSend

End Function

Du skal kopier teksten ind i et modul i Access. Går du ind i dit databaseoversigt også vælger moduler - designvisning er det her koden skal lægge.

Så skal du have en formular med 3 felter. En til mail-adressen som du kalde adresse. En til overskriv (emne) og en til teksten (tekst).

Så opretter du en knap der hedder send. På den går du ind egenskabsarket og finden den hændelse der hedder ved klik. Her vælger du kodegenerater vel at klikke på knappen med de 3 prikker i i siden. Her skriver du

NotesMailSend (me.adresse, me.emne me.tekst)

Du må også sende databasen til mig. Så skal jeg hælpe dig med det. Adressen er access@edb.dk

Hej janbangm

Jeg har lige sendt modulet og en formular
håber du kan få det til at virke

*sssss*

Hej som skrevet i den sidste mail point er på vej

syntaxen for kommadoknappen skal se således ud,bemærk at der ikke skal være paranteser.

Private Sub Send_Click()
NotesMailSend Me.adresse, Me.Emne, Me.tekst
End Sub

Endnu engang tak for hjælpen


*SSSSSSS*
aandersen