Accueil > > > ENVOYER UN MAIL AVEC LOTUS NOTES 6 AVEC PASSWORD
 ENVOYER UN MAIL AVEC LOTUS NOTES 6 AVEC PASSWORD
 Information sur la source
 Description
Bonjour, je sais qu'il y a pas mal de code sur Lotus, cependant, aucun n'a réellement fonctionner sur mon PC, car la plupart des codes présent sur vbfrance ne fonctionne pas du tout sur la version 6, car le composant a bien changé depuis la V4... J'ai donc été à la peche aux infos sur des sites sur lotus, et j'ai pu recréé le code d'envoi de mail, qui gère également l'injection du mot de passe (et évite donc l'apparition de la boite de dialogue de mot de passe). j'ai également pioché quelques variables certaines sources sur vbfrance. Cela marche impeccablement sur mon Lotus Notes 6, mais il semble que cela fonctionne sur toutes les versions supérieures à la 5.0.2, mais je n'ai pas confirmation.... J'espère que cela vous aidera ;) Je l'ai mis sous forme de fonction //TRES IMPORTANT: il faut faire un regsrv de la Dll de Notes qui n'est pas forcément identifié par VB (ex: DEMARRER > EXECUTER puis "regsrv32 C:\progra~1\Lotus\Notes\nlsxbe.dll" (modifier en fonction du chemin de votre lotus)
 Source
- '//TRES IMPORTANT: il faut faire un regsrv de la Dll de Notes qui n'est pas forcément identifié par VB
- '(ex: DEMARRER > EXECUTER puis "regsrv32 C:\progra~1\Lotus\Notes\nlsxbe.dll" (modifier en fonction du chemin de votre
- 'lotus)
-
- '//AJOUTER LA REFERENCE SUIVANTE ("projet > reference"): LOTUS DOMINO OBJECTS (qui correspond à domobj.tbl)
- '*************************************************************************************************************
- Function prvSendNotesMail(Subject As String, Attachment As String, Recipient As String, BodyText As String, SaveIt As Boolean) As Boolean
- '*********************************************
- 'Repris et développé par EvilGost
- 'Subject: Sujet du mail / Attachment: Chemin complet du fichier à attacher (ex: "C:\test.txt"), sinon, mettre "" /
- 'Recipient: Destinataire (ex: "jeanlouis@wanadoo.fr") / Bodytext: Texte du mail / SaveIt: sauvegarde du mail dans les courriers envoyés
- '*************************************************************************************************************
- 'Set up the objects required for Automation into lotus notes
- Dim Maildb As NotesDatabase 'The mail database
- Dim UserName As String 'The current users notes name
- Dim MailDoc As Object 'The mail document itself
- Dim AttachME As Object 'The attachment richtextfile object
- Dim oSession As NotesSession
- Dim dbDirectory As NotesDbDirectory
- Dim EmbedObj As Object 'The embedded object (Attachment)
-
- On Error GoTo ErrHandle
-
- Set oSession = New NotesSession
- 'Démarre une session de notes
- 'La ligne suivante ne marche qu'avec les versions 5.x et 6.x , c'est l'injection du mot de passe
-
- oSession.Initialize ("Mot de passe")
-
- 'Récupère le nom par défaut de la session
- UserName = oSession.UserName
-
- 'Ouvre la base mail en utilisant le serveur par défaut
- Set dbDirectory = oSession.GetDbDirectory("") 'vous pouvez mettre l'adresse du serveur dans ces parentheses
- Set Maildb = dbDirectory.OpenMailDatabase
-
- 'Création du formulaire d'envoi de mail
- Set MailDoc = Maildb.CreateDocument()
-
- MailDoc.AppendItemValue "Subject", Subject 'remplissage du Sujet
- MailDoc.AppendItemValue "SendTo", Recipient 'si vous passer un tableau de string() en paramètre, vous pouvez mettre plusieurs destinataire (ex: Recipient(2))
- MailDoc.AppendItemValue "Body", BodyText 'Corps du mail
-
- 'Permet d'attacher un document au mail
- If Attachment <> "" Then
- Set AttachME = MailDoc.CreateRichTextItem("Attachment")
- Set EmbedObj = AttachME.EmbedObject(1454, "", Attachment, "Attachment")
- End If
-
- 'Envoi le document
-
- If SaveIt = True Then
- MailDoc.SaveMessageOnSend = SaveIt 'si à True, Lotus sauvegarde le mail envoyé
- End If
-
- Call MailDoc.Send(False) 'j'obtiens une erreur lorsque je mets true au lieu de false, si quelqu'un sait pourquoi
-
- prvSendNotesMail = True
- GoTo ExitHandle
-
- ErrHandle:
- Msgbox Err.Description
- prvSendNotesMail = false
-
- ExitHandle:
- 'Vidage mémoire
- Set Maildb = Nothing
- Set MailDoc = Nothing
- Set AttachME = Nothing
- Set oSession = Nothing
- Set dbDirectory = Nothing
- Set EmbedObj = Nothing
- End Function
'//TRES IMPORTANT: il faut faire un regsrv de la Dll de Notes qui n'est pas forcément identifié par VB
'(ex: DEMARRER > EXECUTER puis "regsrv32 C:\progra~1\Lotus\Notes\nlsxbe.dll" (modifier en fonction du chemin de votre
'lotus)
'//AJOUTER LA REFERENCE SUIVANTE ("projet > reference"): LOTUS DOMINO OBJECTS (qui correspond à domobj.tbl)
'*************************************************************************************************************
Function prvSendNotesMail(Subject As String, Attachment As String, Recipient As String, BodyText As String, SaveIt As Boolean) As Boolean
'*********************************************
'Repris et développé par EvilGost
'Subject: Sujet du mail / Attachment: Chemin complet du fichier à attacher (ex: "C:\test.txt"), sinon, mettre "" /
'Recipient: Destinataire (ex: "jeanlouis@wanadoo.fr") / Bodytext: Texte du mail / SaveIt: sauvegarde du mail dans les courriers envoyés
'*************************************************************************************************************
'Set up the objects required for Automation into lotus notes
Dim Maildb As NotesDatabase 'The mail database
Dim UserName As String 'The current users notes name
Dim MailDoc As Object 'The mail document itself
Dim AttachME As Object 'The attachment richtextfile object
Dim oSession As NotesSession
Dim dbDirectory As NotesDbDirectory
Dim EmbedObj As Object 'The embedded object (Attachment)
On Error GoTo ErrHandle
Set oSession = New NotesSession
'Démarre une session de notes
'La ligne suivante ne marche qu'avec les versions 5.x et 6.x , c'est l'injection du mot de passe
oSession.Initialize ("Mot de passe")
'Récupère le nom par défaut de la session
UserName = oSession.UserName
'Ouvre la base mail en utilisant le serveur par défaut
Set dbDirectory = oSession.GetDbDirectory("") 'vous pouvez mettre l'adresse du serveur dans ces parentheses
Set Maildb = dbDirectory.OpenMailDatabase
'Création du formulaire d'envoi de mail
Set MailDoc = Maildb.CreateDocument()
MailDoc.AppendItemValue "Subject", Subject 'remplissage du Sujet
MailDoc.AppendItemValue "SendTo", Recipient 'si vous passer un tableau de string() en paramètre, vous pouvez mettre plusieurs destinataire (ex: Recipient(2))
MailDoc.AppendItemValue "Body", BodyText 'Corps du mail
'Permet d'attacher un document au mail
If Attachment <> "" Then
Set AttachME = MailDoc.CreateRichTextItem("Attachment")
Set EmbedObj = AttachME.EmbedObject(1454, "", Attachment, "Attachment")
End If
'Envoi le document
If SaveIt = True Then
MailDoc.SaveMessageOnSend = SaveIt 'si à True, Lotus sauvegarde le mail envoyé
End If
Call MailDoc.Send(False) 'j'obtiens une erreur lorsque je mets true au lieu de false, si quelqu'un sait pourquoi
prvSendNotesMail = True
GoTo ExitHandle
ErrHandle:
Msgbox Err.Description
prvSendNotesMail = false
ExitHandle:
'Vidage mémoire
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set oSession = Nothing
Set dbDirectory = Nothing
Set EmbedObj = Nothing
End Function
 Conclusion
Je rappelle donc que vous pouvez modifier la fonction pour passer un tableau de String comment paramètre pour le Recipient, afin d'avoir plusieurs destinataires
On peut également boucler sur le contenu du IF d'attachement pour attacher plusieurs documents.
A savoir également que j'ai mis: Call MailDoc.Send(False) parce que lorsque je mets true, ca plante, je ne sais pas trop pourquoi, si jamais quelqu'un le sait.
 Historique
- 21 mars 2006 14:46:23 :
- Correction de fautes de frappe :p
- 21 mars 2006 14:49:41 :
- rajout de commentaires
- 21 mars 2006 15:22:32 :
- Ajout d'information sur l'enregistrement de la DLL
- 22 mars 2006 11:53:31 :
- correction d'une information
- 22 mars 2006 12:44:28 :
- Ajout information sur la DLL Domino
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
envoi de mail à partir d'Access97 par Lotus Notes [ par rouby ]
Bonjour à tous,Je travaille pour un client qui a toute sa Messagerie sur Lotus Notes. Je veux pouvoir envoyer un mail contenant un fichier attaché cho
Mail -> Lotus Notes [ par laurent ]
Salut.Est ce que quelqu'un sait si il est possible , à partir d'un pc sans messagerie , d'envoyer un mail vers une boite aux lettres d'un serveur Note
lotus notes accuse de reception [ par galldup ]
Salut!J'ai reussi jusqu'a present d'envoyer un mail avec fichier joint via lotus notes sous VBA-access.tout marche bien.Maintenant, j'aimerai savoir q
lotus notes sign mail ____aux experts... [ par galldup ]
Salut, j'aimerai savoir comment quelle est la syntaxe du code VBA pour ajouter une signature electrique pour un mail sous lotus notes...Partie du code
ENVOI D'UN MAIL PAR LOTUS NOTES VIA ACCESS [ par ant666 ]
ant666HELLO,je voudrais savoir s'il était possible d'envoyer un mail par lotus notes via access2000. merci beaucoup!!!! an
Envoie de mail par LOTUS NOTES via VB [ par isale ]
isa:Bonjour,J'ai un petit problème!Lors d'envoie de mail par lotus notes via VB, est-il possible d'afficher un préview du mail envoyé pour permettre à
envoyer un mail via lotus notes [ par khalidmh ]
j'ai trouvé un code qui permet d'envoyer un mail via lotus notes depuis Excel. Cependant, le mail est envoyer directement après que j'ai entrer mon mo
Mise en page d'un mail envoyé via lotus notes [ par sylfau ]
Bjr,Je viens de faire un programme qui envoie des mails via lotus notes, malheureusement je n'arrive pas a avoir une mise en page (utilisation de poli
envois de mail 'richtextbox' via lotus notes [ par sylfau ]
Bjr,j'arrive à envoyer du texte basique via lotus notes, mais je ne trouve pas comment envoyé un texte au format richtextbox (pour avoir des couleurs
Insérer la signature dans un mail lotus notes VB [ par mjeejee ]
BonjourJ'ai une macro VB sous Excel me permettant d'envoyer un mail sous Lotus Notes avec le fichier Excel attaché. Cependant, j'aimerai pouvoir y inc
|
Derniers Blogs
 UNE JOLIE-HORLOGE ET PAS QU'UN PEU !UNE JOLIE-HORLOGE ET PAS QU'UN PEU ! par neodante
Pour les possesseurs d'iPhone, ça y est Bijin Tokei - qui se traduit littéralement en Français par " Jolie Horloge " - est arrivé et GRATUITEMENT s'il vous plaît ! Après la version Tokyo, Hokkaido, night club, racing, Gal, "pour les mademoiselles'", . voi...
Cliquez pour lire la suite de l'article par neodante TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICESTECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice
Animé par: Gaetan Bouveret et Julien Chomarat Business Connectivity Services (BCS) est dans SharePoint 2010 la version 2 de Business Data Catalog (BDC dans SharePoint 2007). Il s'agit de la solution permettant de visualiser des données provenan...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Forum
 VB.NET ET COMBOBOXVB.NET ET COMBOBOX par minouthebreaker
Cliquez pour lire la suite par minouthebreaker
Logiciels
 DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|