PB avec l'envoi de mail Lotus sous VB - VB/VBA/VBS - Programmation
Marsh Posté le 18-02-2004 à 16:39:42
bon, je connais pas du tout Notes, je connais à peine Excel, mais il y a un truc qui me semble clair: le profil utilisateur (Notes on dirait) du destinataire ne lui permet pas de lire la donnée envoyée, et la seconde erreur découle certainement de la première. Je sais pas te dire plus.
Marsh Posté le 18-02-2004 à 16:34:49
Bonjour a tous,
J'ai un souci avec lotus et VB:
j'ai une macro excel qui envoi un mail automatiquement sous lotus, et ça fonctionne... jusqu'a un certain point: quand le destinataire ouvre le message, il recoit le message d'erreur suivant:
"Notes doit executer une action qui ne correspond pas a votre porfil de sécurité:
Action: Notesdatabase.getprofileDocument
Signataire: - pas de signature-
Non autorisé: Acces à la base de document actuelle. "
Si je clique sur Abandonner, le mail s'ouvre quand même, mais je recoit le message d'erreur " variant does not contain an object"
--- voici la macro que j'utilise, voyez vous ce qui manquerait???----
Sub sendmail()
Dim session As Object
Dim db As Object
Dim doc As Object
Dim fichier As Object
Set session = CreateObject("notes.notessession" )
Set db = session.getdatabase("", "" )
If db.IsOpen = True Then
Else
db.OPENMAIL
End If
Call db.createdocument
Set doc = db.createdocument()
With doc
.form = "memo"
.sendto = "toto@gogo.com"
.Subject = "hello"
.body = "test de mail"
.from = session.COMMONUSERNAME
.postedate = Now
.SAVEMESSAGEONSEND = True
End With
Call doc.send(True)
Set session = Nothing
Set db = Nothing
Set doc = Nothing
End Sub