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
