Lotus Notes

**Djekill** · 10/01/2006, 10h24

Bonjour
quelles references doit on utilier pour que les objet de lotus notes soit pris en charge.
car moi j'essaye d'envoyer un mail lotus par le moyen d'un formulairetous marche impek sauf la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Session.Initialize (Password)

qui m'affiche un message d'erreur

Propriete ou methode non gere

voila merci d'avance

**argyronet** · 10/01/2006, 12h35

Bonjour,

Une petite visite dans le forum s'impose...
Tu aurais trouvé ceci...

Argy

**Djekill** · 10/01/2006, 15h11

Merci mais j'ai deja un code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
Option Compare Database
Option Explicit
 
Private Declare Function GetOpenFileName Lib _
"comdlg32.dll" Alias "GetOpenFileNameA" _
(pOpenfilename As OPENFILENAME) As Long
 
Private Type OPENFILENAME
  lStructSize As Long
  hwndOwner As Long
  hInstance As Long
  lpstrFilter As String
  lpstrCustomFilter As String
  nMaxCustFilter As Long
  nFilterIndex As Long
  lpstrFile As String
  nMaxFile As Long
  lpstrFileTitle As String
  nMaxFileTitle As Long
  lpstrInitialDir As String
  lpstrTitle As String
  flags As Long
  nFileOffset As Integer
  nFileExtension As Integer
  lpstrDefExt As String
  lCustData As Long
  lpfnHook As Long
  lpTemplateName As String
End Type
 
Private Const OFN_READONLY = &H1
Private Const OFN_OVERWRITEPROMPT = &H2
Private Const OFN_HIDEREADONLY = &H4
Private Const OFN_NOCHANGEDIR = &H8
Private Const OFN_SHOWHELP = &H10
Private Const OFN_ENABLEHOOK = &H20
Private Const OFN_ENABLETEMPLATE = &H40
Private Const OFN_ENABLETEMPLATEHANDLE = &H80
Private Const OFN_NOVALIDATE = &H100
Private Const OFN_ALLOWMULTISELECT = &H200
Private Const OFN_EXTENSIONDIFFERENT = &H400
Private Const OFN_PATHMUSTEXIST = &H800
Private Const OFN_FILEMUSTEXIST = &H1000
Private Const OFN_CREATEPROMPT = &H2000
Private Const OFN_SHAREAWARE = &H4000
Private Const OFN_NOREADONLYRETURN = &H8000
Private Const OFN_NOTESTFILECREATE = &H10000
Private Const OFN_NONETWORKBUTTON = &H20000
Private Const OFN_NOLONGNAMES = &H40000
Private Const OFN_EXPLORER = &H80000
Private Const OFN_NODEREFERENCELINKS = &H100000
Private Const OFN_LONGNAMES = &H200000
 
'Envoi d'un mail avec Lotus Notes
'Subject : sujet du mail
'Attachment : nom d'une pièce jointe
'Recipient : adresse e-mail du destinataire principal
'ccRecipient : destinataire en copie
'bccRecipient : destinataire en copie invisible
'BodyText : corps du mail
'SaveIt : mettre à True pour que le mail soit sauvegardé
'Password : mot de passe
 
Public Sub SendNotesMail(ByVal Subject As String, ByVal Attachment As String, _
                         ByVal Recipient As String, ByVal ccRecipient As String, _
                         ByVal bccRecipient As String, ByVal BodyText As String, _
                         ByVal SaveIt As Boolean, ByVal Password As String)
 
    Dim Maildb As Object      'La base des mails
    Dim UserName As String    'Le nom d'utilisateur
    Dim MailDbName As String  'Le nom de la base des mails
    Dim MailDoc As Object     'Le mail
    Dim AttachME As Object    'L'objet pièce jointe en RTF
    Dim Session As Object     'La session Notes
    Dim EmbedObj As Object    'L'objet incorporé
 
    'Crée une session notes
    Set Session = CreateObject("Notes.NotesSession")
 
    '*** Cette ligne est réservée aux versions 5.x et supérieur : ***
    Session.Initialize (Password)
 
    'Récupère le nom d'utilisateur et crée le nom de la base des mails
    UserName = Session.UserName
    MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
 
    'Ouvre la base des mails
    Set Maildb = Session.GETDATABASE("", MailDbName)
    If Not Maildb.ISOPEN Then Maildb.OPENMAIL
 
    'Paramètre le mail à envoyer
    Set MailDoc = Maildb.CREATEDOCUMENT
    MailDoc.Form = "Memo"
    MailDoc.sendto = Recipient
    MailDoc.CopyTo = ccRecipient
    MailDoc.BlindCopyTo = bccRecipient
    MailDoc.Subject = Subject
    MailDoc.Body = BodyText
    MailDoc.SAVEMESSAGEONSEND = SaveIt
 
    'Prend en compte les pièces jointes
    If Attachment <> "" Then
        Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachement")
        Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")
        MailDoc.CREATERICHTEXTITEM ("Attachment")
    End If
 
    'Envoie le mail
    MailDoc.PostedDate = Now()
    MailDoc.SEND 0, Recipient
 
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set Session = Nothing
    Set EmbedObj = Nothing
End Sub

et il me sort une erreur

Erreur 7063 : database has not been opened yet

merci d'avance

**niclalex** · 10/01/2006, 16h24

Bonjour,
Lotus est-il ouvert lorsque tu lances la procédure ?
Si non j'ai eu le meme pb que j'ai résolu en metant un test sur l'ouverture et une "tempo".
Voici mon code complet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
'Cette methode permet d'envoyer un mail à l'aide de Lotus Notes
'-------Paramètres:
'           String  "Sujet du mail"
'           String  "Chemin de la pièce jointe"
'           String  "Destinataire(s)"
'           String  "Corps du mail"
'           Boolean "Sauvegarde du mail" (Oui / Non)
Public Sub SendNotesMail(Subject As String, Attachment As String, Recipient As Variant, BodyText As String, SaveIt As Boolean)
'Set up the objects required for Automation into lotus notes
Dim Maildb As Object 'La base de données de mails
Dim UserName As String 'Nom d'utilisateur
Dim MailDoc As Object 'The mail document itself
Dim AttachME As Object 'La pièce jointe RICHTEXTFILE
Dim Session As Object 'La session de Lotus Notes
Dim EmbedObj As Object 'The embedded object (Attachment)
 
    'Ouvre une session sur Lotus Notes
    Set Session = CreateObject("Notes.NotesSession")
 
    'Récupère le nom d'utilisateur de la session et récupère le nom du fichier mail
    'You may or may not need this as for MailDBname with some systems you
    'can pass an empty string
    UserName = Session.UserName
    'MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
    'Ouvre la base de données des mails sur Lotus Notes
    Set Maildb = Session.GETDATABASE(Administration.SERVER_NAME, Administration.mail_db_name)
    If Maildb.IsOpen = True Then
        'Déjà prête pour l'envoi de mails
    Else
        Maildb.OPENMAIL
        Do While Maildb.IsOpen = False
            Hourglass = True
        Loop
        Hourglass = False
    End If
 
    'Crée le nouveau document mail
    Set MailDoc = Maildb.CreateDocument
    MailDoc.Form = "Memo"
    MailDoc.SendTo = Recipient
    MailDoc.Subject = Subject
    MailDoc.body = BodyText
    MailDoc.SAVEMESSAGEONSEND = SaveIt
    'avis de reception oui =1 , non =0
    MailDoc.returnReceipt = Administration.avis_reception
    'avis de distribution :Quatre valeurs texte sont possibles pour le champ DeliveryReport :
    '"B" (Générer un avis en cas échec de distribution seulement)
    '"C" (Confirmer les distributions qui ont abouti ou échoué)
    '"T" (Effectuer le suivi des distributions qui ont échoué)
    '"N" (Ne jamais générer d'avis)
    MailDoc.DeliveryReport = Administration.avis_distribution
    'Passe les adresses destinataires dans le champ "Recipients" de Lotus
    MailDoc.Recipients = Recipient
    'Set up the embedded object and attachment and attach it
    If Attachment <> "" Then
        Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
        Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")
        MailDoc.CREATERICHTEXTITEM ("Attachment")
    End If
 
    'Envoie le mail
    MailDoc.PostedDate = Now() 'Permet au mail d'apparaître dans le dossier "Envoyés"
    MailDoc.SEND 0, Recipient
 
    'Nettoyage des variables
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set Session = Nothing
    Set EmbedObj = Nothing
End Sub

En espérant t'avoir aidé

**Djekill** · 10/01/2006, 16h38

c'est quoi ta varibale administration dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Administration.SERVER_NAME, Administration.mail_db_name

??

**argyronet** · 10/01/2006, 17h14

Envoyé par Djekill

Merci mais j'ai deja un code :

Oui, je me doute bien...
Est-ce que ton .nsf est valide ?
As tu essayé avec une autre DB ? help4.nsf") Par exemple juste pour voir...

Argy

**niclalex** · 10/01/2006, 19h14

c'est quoi ta varibale administration dans
Code:
Administration.SERVER_NAME, Administration.mail_db_name

C'est les noms du serveur de messagerie lotus (réseau intranet d'entreprise) et le nom de la base de messages.
A+

Lotus Notes

Access

Discussions similaires

Partager

Partager