VB et Lotus Notes

Question

Bonjour &#224; tous, &#224; l'endroit o&#249; je travaille, nous avons une application qui permet d'envoyer automatiquement un courriel Notes au support technique.  De cette mani&#232;re nous pouvons savoir imm&#233;diatement les probl&#232;mes rencontr&#233;s et les corriger le plus rapidement possible.

Ceci &#233;tant dit, le seul probl&#232;me auxquel nous faisons face actuellement c'est que le bout de code qui g&#232;re l'envoi par Lotus Notes plante lorsque Lotus Notes n'est pas ouvert.  Donc nous devons trouver le moyen de faire ouvrir Notes (&#224; faire) , envoyer le courriel (d&#233;j&#224; fait) et de fermer Notes (&#224; faire).

Nous sommes en VB6 et Lotus Notes 6.5

Merci &#224; tous et bonne journ&#233;e

Fran&#231;ois

FMatrix07 · Answer

bonjour as tu essay&#233; un truc du genre

Option Explicit
  Private Session As New NotesSession
  Private dir As NotesDbDirectory
  Private db As NotesDatabase
  Private View As NotesView
'Chargement soft
Private Sub Form_Load()
DoEvents
'Session.Initialize ' permet de lancer la session Lotus mais il faut saisir le mot de pass
'Session.Initialize "TOTO" ' permet de lancer la session Lotus et saisir le mot de pass "TOTO" en automatique
Session.Initialize "TOTO"
Set dir = Session.GetDbDirectory("")
Set db = dir.OpenMailDatabase
Set View = db.GetView("($inbox)")
End Sub

'Fermeture soft
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  Set doc = Nothing
  Set View = Nothing
  Set db = Nothing
  Set dir = Nothing
  Set Session = Nothing
End Sub

SCCr&#233;at

francois_houde · Answer

J'utilise le code suivant.  Par contre si mon Lotus Notes n'est pas ouvert j'ai une erreur &#224; la ligne : 

    Set oSession = New NotesSession

Merci

En passant le code source je l'ai pris &#224; quelque part sur ce site.
========================================================
'//TRES IMPORTANT: il faut faire un regsrv de la Dll de Notes qui n'est pas forc&#233;ment identifi&#233; par VB
'(ex: DEMARRER > EXECUTER puis "regsrv32 C:\progra~1\Lotus\Notes
lsxbe.dll" (modifier en fonction du chemin de votre
'lotus)
  
'//AJOUTER LA REFERENCE SUIVANTE ("projet > reference"): LOTUS DOMINO OBJECTS (qui correspond &#224; domobj.tbl)
'*************************************************************************************************************
Function prvSendNotesMail(Subject As String, Attachment As String, Recipient As String, BodyText As String, SaveIt As Boolean) As Boolean
'*********************************************
'Repris et d&#233;velopp&#233; par EvilGost
'Subject: Sujet du mail / Attachment: Chemin complet du fichier &#224; attacher (ex: "C:	est.txt"), sinon, mettre "" /
'Recipient: Destinataire (ex: "[mailto:jeanlouis@wanadoo.fr jeanlouis@wanadoo.fr]") / Bodytext: Texte du mail / SaveIt: sauvegarde du mail dans les courriers envoy&#233;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&#233;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&#233;cup&#232;re le nom par d&#233;faut de la session
    UserName = oSession.UserName
     
    'Ouvre la base mail en utilisant le serveur par d&#233;faut
    Set dbDirectory = oSession.GetDbDirectory("") 'vous pouvez mettre l'adresse du serveur dans ces parentheses
    Set Maildb = dbDirectory.OpenMailDatabase
  
    'Cr&#233;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&#232;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 &#224; True, Lotus sauvegarde le mail envoy&#233;
    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&#233;moire
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set oSession = Nothing
    Set dbDirectory = Nothing
    Set EmbedObj = Nothing
End Function

VB et Lotus Notes

2 réponses

Discussions similaires