|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 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
Sources en rapport avec celle ci
 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
|
 Téléchargements
Logiciels à télécharger sur le même thème :
|