ENVOI DE MAIL SIMPLE AVEC LOTUS NOTES - VB

Commentaire de jack le 17/12/2004 19:07:39 administrateur CS

Salut Drouzig
(bizarre ce 10 sans commentaire ... bref)

Puisque tu as l'air de connaitre Lotus Notes (LN), cette petite question :
Je cherche un moyen d'ouvrir la messagerie LN comme si je voulais préparer un nouveau message, mais sans l'envoyer, juste qu'il ouvre un nouveau mémo avec les paramètres que je lui passe : Destinataire et objet.
Saurais-tu comment faire, car excepté la commande Send, je n'ai rien trouvé d'autre ?

Commentaire de Drouzig le 20/12/2004 10:59:58

Salut Jack,
si j'ai bien compris ce que tu cherches à faire, la fonction suivante devrait t'aider. Malheureusement, si ta base de mails est protégée par mot de passe, celui-ci te sera demandé pendant l'exécution, je n'ai pas creusé plus que ça, je pense qu'on doit pouvoir régler ce pb de password popup...

Drouzig Chat


Private Sub PrepareNotesMemo(ByVal Recipient As String, ByVal Subject As String, ByVal Memotext As String)

    ' L'objet client Notes
    Dim nlWkspace As Object
    ' L'objet NotesDocument
    Dim nlDoc As Object
    Dim strMailDbname As String

    ' Chemin absolu obligatoirement
    strMailDbname = "U:\Lotus\Notes\Data\drouzigchat.nsf"
    
    ' Ouverture du client Lotus Notes
    Set nlWkspace = CreateObject("Notes.NotesUIWorkspace")
    
    ' Ouverture de la base de courrier
    ' Demande le mot de passe de la base le cas échéant
    nlWkspace.ADDDATABASE "", strMailDbname
    nlWkspace.OPENDATABASE "", strMailDbname
    
    ' Création d'un nouveau mémo
    Set nlDoc = nlWkspace.COMPOSEDOCUMENT("", strMailDbname, "Memo")
    
    ' Ecriture des différents champs du mémo
    nlDoc.INSERTTEXT (Recipient)
    nlDoc.FIELDSETTEXT "Subject", Subject
    nlDoc.FIELDSETTEXT "Body", Memotext
    nlDoc.Refresh
    
    ' Ne pas oublier de détruire les objets
    ' Set nlDoc = Nothing
    ' Set nlDb = Nothing
    ' Set nlWkspace = Nothing
    
End Sub

Commentaire de Welsoft le 28/12/2004 11:39:10

Tout samplement j aim pas les source q pas de zip !

Commentaire de Drouzig le 21/01/2005 09:48:51

Hello,
peut-être as-tu déjà trouvé la solution, c'est pas très complexe : au lieu de passer une simple chaîne de caractères pour le destinataire à notre fonction d'envoi de mail, on va lui passer un tableau.
L'en-tête de la fonction devient ainsi :

Public Sub SendNotesMail(Recipient() As Variant, SaveIt As Boolean, Optional Subject As String, Optional BodyText As String)

...

End Sub

Et dans ta partie de code qui appelle cette fonction, il te faudra définir ton tableau de destinataires :

Dim tabDestinataire(10) as Variant ' taille arbitraire, ça se change dynamiquement au besoin

tabDestinataire(0) = "adresse1"
...
tabDestinataire(9) = "adresse9"


Good luck !

Drouzig Chat

Commentaire de ichtawn le 14/04/2005 00:22:34

salut tt le monde , je suis entrain de developper  une application en VB qui va me permetre d'extraire des dnnées de la base du document lotus notes ( surtout le document Email) , et envoyer des email a cette base du document , mais je suis vraiment bloquer  , si vous avez qlq chose pour m'aider !!!!!! merci d'avance !!!!!