PB avec l'envoi de mail Lotus sous VB

PB avec l'envoi de mail Lotus sous VB - VB/VBA/VBS - Programmation

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

Reply

Marsh Posté le 18-02-2004 à 16:34:49   

Reply

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.


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed