Email Lotus Notes [Résolu]

flexio2 7 Messages postés mercredi 29 novembre 2006Date d'inscription 18 janvier 2008 Dernière intervention - 8 déc. 2006 à 16:06 - Dernière réponse : electroweb 9 Messages postés jeudi 23 janvier 2003Date d'inscription 29 avril 2009 Dernière intervention
- 29 avril 2009 à 13:09
Bonjour,
Les emails que je créé autoamtiquement déclenche le message
"Illegal circular USE : CoreEmailClasses fr-FR"
ainsi que
"Un masque enregistré ne doit pas contenir de sous-masques calculés"

Que dois-je corriger dans mon code ?!!!
Par avance merci
flexio2
Afficher la suite 

Votre réponse

3 réponses

cs_Jack 14010 Messages postés samedi 29 décembre 2001Date d'inscription 28 août 2015 Dernière intervention - 8 déc. 2006 à 20:01
+3
Utile
Salut
Je pense que c'est la 37ème ligne qui déconne.

Honnètement, comment veux-tu qu'on réponde à ta question ?
'Circular' signifie qu'une de tes fonctions fait appelle à elle-même, c'est tout ce qu'on pourrait te dire.
Si tu utilises un composant particulier, vas sur le site du créateur qui saura peut-être te répondre.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de cs_Jack
electroweb 9 Messages postés jeudi 23 janvier 2003Date d'inscription 29 avril 2009 Dernière intervention - 29 avril 2009 à 13:09
+1
Utile
Bonjour,

change

Call doc.SEND(True)

par

Call doc.SEND(False)

Cordialement
Stéphane Guivy
Commenter la réponse de electroweb
flexio2 7 Messages postés mercredi 29 novembre 2006Date d'inscription 18 janvier 2008 Dernière intervention - 9 déc. 2006 à 11:42
0
Utile
Bonjour,
Merci de ta réponse.
Je n'utlise pas de composant spécial et voici le bout de code concerné :

----------------------------
Public Function too_SendEmail(sSubject As String, sBody As String, sSendTo() As String, sFileAttachment As String) As Boolean


    On Error GoTo too_SendEmail_ERROR:


'// Déclaration
    Dim Session As Object
    Dim db As Object
    Dim doc As Object
    Dim EmbedObj As Object 'The embedded object (Attachment)
    Dim objAttachment As Object 'The attachment richtextfile object
     
'// Initialisation
    Set Session = CreateObject("Notes.NotesSession")
    Set db = Session.getDatabase("", "")
    If Not db.IsOpen Then Call db.Openmail 'update v1.3
   
    '----------------------------------------------------
    'Set db = Session.CurrentDatabase
    'Set db = Session.GETDATABASE("", "name.nsf")
    '----------------------------------------------------


'// Email
    Set doc = db.CreateDocument()
    With doc
    .Form = "Memo"
    .SendTo = sSendTo
    .Subject = sSubject
    .body = sBody
    .From = Session.COMMONUSERNAME
    .PostedDate = Now
    .SAVEMESSAGEONSEND = True


'// Set up the embedded object and attachment and attach it
    If (sFileAttachment <> "") Then
        Set objAttachment = .CREATERICHTEXTITEM("Attachment")
        Set EmbedObj = objAttachment.EmbedObject(1454, "", sFileAttachment, "Attachment")
        .CREATERICHTEXTITEM (sFileAttachment)
    End If
   
    End With
    Call doc.SEND(True)
    On Error Resume Next
    db.Close 'update v1.1
   
'// Succès
    Set Session = Nothing
    Set db = Nothing
    Set doc = Nothing
    too_SendEmail = True
    Exit Function


too_SendEmail_ERROR:
    Call too_TexteErrorMessage
    On Error Resume Next
    db.Close 'update v1.1
   
End Function


-----------------------


Par avance merci de ton aide.
flexio2
Commenter la réponse de flexio2

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.