IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

Envoi mail par Notes avec un autre nom


Sujet :

VB 6 et antérieur

  1. #1
    Nouveau Candidat au Club
    Profil pro
    Inscrit en
    Octobre 2005
    Messages
    2
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations forums :
    Inscription : Octobre 2005
    Messages : 2
    Points : 1
    Points
    1
    Par défaut Envoi mail par Notes avec un autre nom
    Bonjour !!!
    Voila mon souci, je dois envoyer des mails d'infos via lotus notes mais en me servant d'une boite mail commune au service

    J'ai bien trouvé le code qui permet l'envoi avec mon user ( ca fonctionne nickel Merci Developpez.com :o !!!) mais par contre en specifiant le nom de la boite commune ... rien du tout ??

    Enfin
    Dans les references j'en ai 2 qui se referrent à Notes :

    Lotus Domino Objects
    Lotus Notes Automation Classes

    Laquelle utiliser ?

    Merci pour vos reponses !!

  2. #2
    Membre du Club
    Inscrit en
    Mars 2005
    Messages
    40
    Détails du profil
    Informations forums :
    Inscription : Mars 2005
    Messages : 40
    Points : 40
    Points
    40
    Par défaut
    il te faut faire des aliases pour ce genre de chose je pense

    va voir l aide au dev de ibm concernant notes

    ftp://ftp.boulder.ibm.com/software/lotus/pub/lotusweb/ssdev/lsvbrb.pdf

  3. #3
    Membre régulier
    Profil pro
    Inscrit en
    Octobre 2005
    Messages
    99
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2005
    Messages : 99
    Points : 110
    Points
    110
    Par défaut
    Voici la fonction que j'utilise pour l'envoi de mail via Lotus Notes

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
     
    Sub EnvoieMessageNotes(ByVal p_sAdresseUser As String, ByVal p_sSujetMessage As String, ByVal p_sBody As Variant)
     
    Dim l_oSession As Object
    Dim l_oDB As Object
    Dim l_oMessage As Object
    Dim l_oItemRT As Object
     
    On Error GoTo TraiteErreur
     
        'Création des instances
        'ne pas utiliser le mot clé New (non reconnu pour les objets LN)
        Set l_oSession = CreateObject("Notes.NotesSession")
        Set l_oDB = l_oSession.GETDATABASE(g_sNomServeurLotus, g_sNomBaseLotus)
        Set l_oMessage = l_oDB.CREATEDOCUMENT
        l_oMessage.Form = "Memo"
        l_oMessage.Sendto = p_sAdresseUser
        l_oMessage.Subject = p_sSujetMessage
        Set l_oItemRT = l_oMessage.CREATERICHTEXTITEM("Body")
        Call l_oItemRT.APPENDTEXT(p_sBody)
        Call l_oMessage.SEND(False)
     
        Set l_oItemRT = Nothing
        Set l_oMessage = Nothing
        Set l_oDB = Nothing
        Set l_oSession = Nothing
     
        Exit Sub
     
    TraiteErreur:
     
        ContenuMessage "Global  : Erreur lors de l'envoie d'un message!", True
        LogEcrire g_sMessage
        End
     
    End Sub
    Je ne sais pas si cela peut te convenir en remplaçant "g_sNomBaseLotus" par la base du user générique que tu veux utiliser.

    Dit nous si ça marche.

  4. #4
    Nouveau Candidat au Club
    Profil pro
    Inscrit en
    Octobre 2005
    Messages
    2
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations forums :
    Inscription : Octobre 2005
    Messages : 2
    Points : 1
    Points
    1
    Par défaut Helas toujours le meme probleme
    Merci pour ton code,
    mais cela ne fonctionne pas, il l'envoie toujours avec le user principal.
    Je vais essayer en passant par DATABASE et non plus NOTESSESSION ?

    Si quelqu'un d'autre a une idée ?
    je suis preneur

    Merci d'avance

  5. #5
    Membre du Club
    Inscrit en
    Mars 2005
    Messages
    40
    Détails du profil
    Informations forums :
    Inscription : Mars 2005
    Messages : 40
    Points : 40
    Points
    40
    Par défaut
    quand tu ouvres la session et que tu fais l envoi c est logique tu es sur ton compte perso c est normal c est ton mdp qui va permettre d ouvrir la session notes.............

    donc
    toi tu vas te logger sur ton serveur notes avec ton compte et ton mdp

    apres il te faut un alias en sortie sous notes pour utiliser la boite générique comme expediteur....... à la place de ton compte perso
    ca se fait pas en vb mais dans la configuration de notes donc ca entre plus dans le cadre développez.com je pense.



    sinon c est peut etre réalisable dans les règles notes...... ou une table d alias .
    tu dois surement avoir quelqun en charge de la messagerie dans ta boite demande comment tu fais l alias.

Discussions similaires

  1. [XL-2010] Envoi mail par excel avec boucle pour tous les champs
    Par jul2012 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 12/11/2012, 14h54
  2. Envoi mail par Lotus Notes depuis VB : signature
    Par Gluups dans le forum Général VBA
    Réponses: 6
    Dernier message: 25/01/2011, 10h15
  3. Envoi mail par excel avec thunderbird
    Par triaguae dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 22/05/2009, 14h08
  4. Envoi mail par excel avec thunderbird
    Par siderfan49 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 15/09/2008, 10h09
  5. Restaurer une base avec un autre nom de base de donnée
    Par dimdidi dans le forum MS SQL Server
    Réponses: 7
    Dernier message: 19/08/2005, 10h11

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo