Ipotizzando che il campo si chiami [B]Email[/B], aggiungi un pulsante/hotspot che faccia questo:
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = New NotesDatabase("", "")
Call db.OpenMail
Set doc = db.CreateDocument
doc.Form = "Memo"
doc.SendTo = ws.CurrentDocument.Document.Email
Call ws.EditDocument(True, doc, False)
End Sub
E il gioco è fatto :)
Massimo Nadalin | Devangarde
|