brunounours
XLDnaute Nouveau
Bonjour,
Je souhaiterai envoyer un message utilisant une macro à travers LotusNote:
Voila mon point de départ:
Access - Les Sources
j'ai créé un bouton pour lancer la procedure qui possède ce code:
Voila la tentative d'adaptation que j'ai essayé de faire:
Cependant la procédure d'envoi de message ne se lance pas
Avec Débug puis F8, je n'arrive pas a sortir de la procédure du "bouton_Click()". Un message d'erreur apparait:
"Couldn t find the specific Object"
Je suis dessus depuis ce matin et étant débutant je n'arrive pas à m'en sortir.
auriez vous quelques conseils pour m'aider à résoudre ce problème?
Merci d'avance.
Bruno
Je souhaiterai envoyer un message utilisant une macro à travers LotusNote:
Voila mon point de départ:
Access - Les Sources
j'ai créé un bouton pour lancer la procedure qui possède ce code:
Code:
Private Sub CommandButton1_Click()
SendNotesMail Me!txtSubject, Me!txtAttachment, Me!txtTo, _
Me!txtCC, Me!txtCCC, Me!txtMessage, False
End Sub
Voila la tentative d'adaptation que j'ai essayé de faire:
Code:
Public Sub SendNotesMail(ByVal Subject As String, _
ByVal Attachment As String, ByVal RECIPIENT As String, _
ByVal CC As String, ByVal BCC As String, _
ByVal BodyText As String, ByVal SaveIt As Boolean)
Dim oMaildb As Object
Dim oMailDoc As Object
Dim oAttachME As Object
Dim oSession As Object
Dim oEmbedObj As Object
Dim sUserName As String
Dim sMailDbName As String
Const STR_ATTACHMENT As String = "Attachment"
On Error GoTo L_ErrCannotCreateNotesSession
Set oSession = CreateObject("Notes.NotesSession")
sUserName = oSession.sUserName
sMailDbName = Left$(sUserName, 1) & Right$(sUserName, _
(Len(sUserName) - InStr(1, sUserName, " "))) & ".nsf"
DoEvents
lblStatus.Caption = "Information about sender..."
Call Sleep(1000)
Set oMaildb = oSession.GETDATABASE(vbNullString, _
sMailDbName)
If oMaildb.IsOpen = True Then
Else
oMaildb.OPENMAIL
End If
Set oMailDoc = oMaildb.CREATEDOCUMENT
oMailDoc.Form = "Memo"
oMailDoc.SENDTO = "CST_BAntoniol@xxxxxxxx.com"
If Len(CC) = 0 Then
Else
oMailDoc.CopyTo = ""
End If
If Len(BCC) = 0 Then
Else
oMailDoc.blindCopyTo = ""
End If
oMailDoc.Subject = "Test"
oMailDoc.Body = "Essai de message"
oMailDoc.SAVEMESSAGEONSEND = SaveIt
DoEvents
lblStatus.Caption = "Looking for attached files..."
Call Sleep(1000)
If Attachment <> vbNullString Then
Set oAttachME = oMailDoc.CREATERICHTEXTITEM(STR_ATTACHMENT)
Set oEmbedObj = oAttachME.EMBEDOBJECT(1454, _
vbNullString, Attachment, STR_ATTACHMENT)
oMailDoc.CREATERICHTEXTITEM _
(STR_ATTACHMENT)
End If
DoEvents
oMailDoc.PostedDate = Now()
'To send the message, remove the quotes characters (') near each line
lblStatus.Caption = "Sending message..."
Call Sleep(1000)
'
oMailDoc.SEND 0, RECIPIENT
lblStatus.Caption = "Message sent"
MsgBox "Your message has been sent successfully...", 64, "End"
L_ExCannotCreateNotesSession:
Set oMaildb = Nothing
Set oMailDoc = Nothing
Set oAttachME = Nothing
Set oSession = Nothing
Set oEmbedObj = Nothing
Exit Sub
L_ErrCannotCreateNotesSession:
Select Case Err
Case 429
MsgBox "Impossible de localiser un Client Notes; " & _
"Votre message n'a pas été envoyé !", 16, _
"Lotus Notes requis"
Case Else
MsgBox "Un erreur a empêché l'envoi du message." & _
vbCrLf & "Veuillez en référer à votre administrateur " & _
"pour lui soumettre cette erreur..." & vbCrLf & Error, 16, "Error #" & str(Err)
End Select
Resume L_ExCannotCreateNotesSession
End Sub
Cependant la procédure d'envoi de message ne se lance pas
Avec Débug puis F8, je n'arrive pas a sortir de la procédure du "bouton_Click()". Un message d'erreur apparait:
"Couldn t find the specific Object"
Je suis dessus depuis ce matin et étant débutant je n'arrive pas à m'en sortir.
auriez vous quelques conseils pour m'aider à résoudre ce problème?
Merci d'avance.
Bruno