Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Lotus Notes
Forum - Visual Basic 6 - Lotus Notes

Avatar
marcello90 (Normal User)
Newbie


Messaggi: 5
Iscritto: 15/12/2009

Segnala al moderatore
Postato alle 22:49
Giovedė, 29/07/2010
Sto tentando di inviare email in vb6 tramite Lotus Notes.
Ecco il codice:
Codice sorgente - presumibilmente VB.NET

  1. Public Function fInvioLotus(sOggetto As String) As Boolean
  2. On Error GoTo err_fInvioLotus
  3. Dim session As Object
  4. Dim doc As Object
  5. Dim rtf As Object
  6.  
  7. fInvioLotus = False
  8. Set session = CreateObject("Notes.NotesSession")
  9. Set db = session.GetDatabase("", "")
  10. Call db.OPENMAIL
  11. Set doc = db.CreateDocument
  12. With doc
  13. .Form = "Memo"
  14. .SaveMessageOnSend = True
  15. .SendTo = "mcolombo.consdsi@duomo.it"
  16. .Subject = sOggetto
  17. Set rtf = .CreateRichTextItem("Body")
  18. Call rtf.AppendText("Con la presente si allega quanto in oggetto. Distinti saluti")
  19. .Send (False)
  20. End With
  21. Set rtf = Nothing
  22. Set doc = Nothing
  23. Set db = Nothing
  24. Set session = Nothing
  25.  
  26. fInvioLotus = True
  27. Exit Function
  28.  
  29. err_fInvioLotus:
  30. fInvioLotus = False
  31. MsgBox Err.Description
  32. End Function



Il problema č come faccio ad inserire un link?

PM Quote