Newsgroup: it.comp.appl.access
Titolo: Invio e-mail con Lotus Notes

 
          In riferimento a coloro che volevano spedire e-mail con LN, allego queste
righe di codice :
Private Sub Comando0_Click()
    ' Recupero le informazioni del server e del file di posta dell'utente dal
notes.ini
    Dim xFile As Long
    Dim rec As String
    xFile = FreeFile
    If Dir("C:\lotus\notes\notes.ini") <> vbNullString Then
        Open "C:\lotus\notes\notes.ini" For Input As xFile
    End If
    Do While Not EOF(xFile)
        Line Input #xFile, rec
        If Mid(rec, 1, 10) = "MailServer" Then
            mvarNS_MailServer = Mid(rec, 12)
        End If
        If Mid(rec, 1, 8) = "MailFile" Then
            mvarNS_MailFile = Mid(rec, 10)
        End If
    Loop
    Close xFile
 
    ' Questi sono gli oggetti che occorrono x l'invio di una mail
    Dim xNotesSession As Object 'lotus.NOTESSESSION
    Dim xNotesDatabase As Object 'lotus.NOTESDATABASE
    Dim xNotesDocumento As Object 'lotus.NOTESDOCUMENT
    Dim xNotesRichTextItem As Object 'lotus.NOTESRICHTEXTITEM
    Dim i As Integer
    ' Istanzio la Sessione Notes
    Set xNotesSession = CreateObject("Notes.NotesSession")
    ' Apro il file di posta
    Set xNotesDatabase = xNotesSession.GetDatabase(mvarNS_MailServer,
mvarNS_MailFile)
    ' Creo il documento 'Memo'
    Set xNotesDocumento = xNotesDatabase.CreateDocument
    xNotesDocumento.Form = "Memo"
    xNotesDocumento.Subject = "Soggetto del testo"
    ' Nel NotesRitchText vanno inseriti gli attach
    Set xNotesRichTextItem = xNotesDocumento.CreateRichTextItem("Body2")
    ' puVetAllegati e' un array contenente il nome completo dei file da allegare
    'For i = 0 To UBound(puVetAllegati)
    ' If Len(puVetAllegati(i)) > 0 Then
    ' Call xNotesRichTextItem.EmbedObject(Notes_Type_Embed, vbNullString,
puVetAllegati(i))
    ' End If
    'Next
 
    xNotesDocumento.BODY = "corpo del msg"
    xNotesDocumento.SendTo = "indirizzo"
    'xNotesDocumento.CopyTo = Notes_SendCc
    'xNotesDocumento.BlindCopyTo = Notes_SendBcc
    ' Invio
    Call xNotesDocumento.Send(False)
 
End Sub
Premesso che : non ho la possibilita' di testarlo e che e' sicuramente
migliorabile....
fatemi sapere se funziona. Ciao
togli xxx dall'indirizzo e-mail
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 End Sub

Ciao Van,
l'ho provato (vedi anche risposta la tuo address) e, in linea di massima,
funziona. Nel mio caso ho apportato le seguenti modifiche:
1. cambiato percorso per il recupero del file "notes.ini";
2. dichiarato alcune variabili (mvarNS_MailServer, mvarNS_MailFile).
Non so, però, come dichiarare Notes_Type_Embed e pensavi di dichiarare
anche Dim puVetAllegati As Variant.
Se qualcuno si aggrega, forse si risolve il problema.
Cosa dici?
Grazie,
TANNHAUSER
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Dall'Help di LotusScript :
Syntax
Set notesEmbeddedObject = notesRichTextItem.EmbedObject( type%, class$,
source$, [ name$ ] )
Parameters
type%
Constant. Indicates if you want to create an attachment, an embedded object,
or a object link. May be any of the following:
EMBED_ATTACHMENT (1454)
EMBED_OBJECT (1453)
EMBED_OBJECTLINK (1452)
Nota The above constants are also used with the Type property in the
NotesEmbeddedObject class.
class$
String.
If you are using EMBED_OBJECT and want to create an empty embedded object
from an application, use this parameter to specify the name of the
application (for example, "1-2-3 Worksheet") and specify an empty string
("") for source$. Case-sensitive.
If you are using EMBED_OBJECTLINK or EMBED_ATTACHMENT, specify an empty
string ("").
source$
String.
If you are using EMBED_OBJECT and want to create an embedded object from a
file, use this parameter to specify the name of the file, and specify an
empty string ("") for class$.
If you are using EMBED_ATTACHMENT or EMBED_OBJECTLINK, use this parameter to
specify the name of the file to attach or link.
name$
String. Optional. Name by which you can reference the NotesEmbeddedObject
later. This parameter is only used for OLE/2 objects and does not include
attachments.
Return value
notesEmbeddedObject
The newly attached file, embedded object, or linked object.
ti basta definire puVettAllegati come un'array stringa (o solo una stringa,
se l'attach e' uno solo) inserendo il percorso e il nome del file, ad es .
"c:\prova\prova.pdf".
Credo invece, ma ti ripeto che non ho modo di verificarlo, che utilizzando
il db di posta e aggiungendo 'Call doc.Save(True, True)' alla fine della
routine, sia sufficiente per trovare traccia della e-mail.
Ciao



ops...xNotesDocumento.save(false, false)


 Ciao
Ciao Van,
ho apportato le modifiche che mi hai suggerito ed ora riesco sia ad
allegare piů file che a salvare il messaggio nella posta in uscita.
Un'ultima cosa, sai mica se č possibile intercettare l'invio e aprire
solamente Notes, senza inviare il messaggio, cosě che, se uno vuole puň
aggiungere od editare qualcosa?



Si e' possibile, ma xche' non lo fai con access ? Spiega un po' meglio cosa
stai combinando....


 Ciao
Se ho ben capito vorresti suggerirmi di disegnare una maschera tipo e-mail
dove posso fare tutto quello che si può fare in un programma di posta come
Notes (Per, CC,CCR, Oggetto, Testo, Allegati, ecc.) e di utilizzare il
codice solamente per effettuare l'invio in modo trasparente.
In pratica ho una maschera dove viene compilato un Ordine d'Acquisto.
Associato ad un tasto, vorrei inserire il codice che mi hai gentilmente
fornito per inviare l'ordine a chi di dovere, dopo averlo salvato in
formato *.PDF (problema già risolto).
Ciao,



Si, era quello che volevo dire, non so' se nel tuo caso e' praticabile ma mi
sembra la soluzione piu' immediata. Per farlo con Notes ti dovresti studiare
un po' le classi e non e' una cosa immediata.
Personalmente adoro Lotus Notes, ho lavorato un paio di anni con questo
strumento, peccato che sia un ambiente un po' chiuso....(piccolo sfogo)...
Ciao
PS: sto' litigando sul news di domino, xche' non hanno dato nessuna risposta
ad una richiesta simile.... :-)


 Ciao

Credo che disegnerò una semplice maschera che mi permette di mandare
l'e-mail ed altre semplici aggiunte.
Per l'altro NW, buona fortuna.
Grazie ancora,


 stai combinando....
Ma volendo intercettare l'invio potresti indicarmi la strada da seguire?
Grazie
