marcello90 (Normal User)
Newbie
Messaggi: 5
Iscritto: 15/12/2009
|
Sto tentando di inviare email in vb6 tramite Lotus Notes.
Ecco il codice:
Codice sorgente - presumibilmente VB.NET |
Public Function fInvioLotus(sOggetto As String) As Boolean On Error GoTo err_fInvioLotus Dim session As Object Dim doc As Object Dim rtf As Object fInvioLotus = False Set session = CreateObject("Notes.NotesSession") Set db = session.GetDatabase("", "") Call db.OPENMAIL Set doc = db.CreateDocument With doc .Form = "Memo" .SaveMessageOnSend = True .SendTo = "mcolombo.consdsi@duomo.it" .Subject = sOggetto Set rtf = .CreateRichTextItem("Body") Call rtf.AppendText("Con la presente si allega quanto in oggetto. Distinti saluti") .Send (False) End With Set rtf = Nothing Set doc = Nothing Set db = Nothing Set session = Nothing fInvioLotus = True Exit Function err_fInvioLotus: fInvioLotus = False End Function
|
Il problema č come faccio ad inserire un link?
|