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

VBScript Discussion :

Envoi mail via lotus


Sujet :

VBScript

  1. #1
    Expert confirmé
    Avatar de ludojojo
    Homme Profil pro
    Développeur SharePoint
    Inscrit en
    Avril 2008
    Messages
    2 967
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France

    Informations professionnelles :
    Activité : Développeur SharePoint
    Secteur : Conseil

    Informations forums :
    Inscription : Avril 2008
    Messages : 2 967
    Billets dans le blog
    5
    Par défaut Envoi mail via lotus
    Bonjour,
    Je suis dans une grande société, et les flux de données, ports, etc... sont très restreint. Je souhaite envoyer un mail de façon automatique, pour cela plutôt de que chercher tous les paramètres, j'aimerais savoir s'il est possible d'envoyer un mail via lotus, étant donné que le mail doit être envoyer uniquement en interne?
    Merci par avance pour votre aide
    Aide les autres...
    Et les autres t'aideront....
    Mon site DVP
    N'oubliez pas de consulter les FAQ SharePoint et les cours et tutoriels SharePoint

    N'oubliez pas de voter pour les messages dont la réponse est pertinente

  2. #2
    Expert confirmé
    Avatar de ludojojo
    Homme Profil pro
    Développeur SharePoint
    Inscrit en
    Avril 2008
    Messages
    2 967
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France

    Informations professionnelles :
    Activité : Développeur SharePoint
    Secteur : Conseil

    Informations forums :
    Inscription : Avril 2008
    Messages : 2 967
    Billets dans le blog
    5
    Par défaut
    J'ai trouvé ce code là :
    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
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    Sub Main 
    Dim oSess As Object
    Dim oDB As Object
    Dim oDoc As Object
    Dim oItem As Object
    Dim direct As Object
    Dim Var As Variant
    Dim flag As Boolean
     
    Set oSess = CreateObject("Notes.NotesSession")
    Set oDB = oSess.GETDATABASE("", "")
    Call oDB.OPENMAIL
    flag = True
    If Not (oDB.ISOPEN) Then flag = oDB.OPEN("", "")
     
    If Not flag Then
        MsgBox "Can't open mail file: " & oDB.SERVER & " " & oDB.FILEPATH
        GoTo exit_SendAttachment
    End If
    On Error GoTo err_handler
     
    'Building Message
    Set oDoc = oDB.CREATEDOCUMENT
    Set oItem = oDoc.CREATERICHTEXTITEM("BODY")
    oDoc.Form = "Memo"
    oDoc.subject = "This is the subject"
    oDoc.sendto = "steve.gossett@unisyn.com"
    oDoc.body = "This is test text in the body of the email"
    oDoc.postdate = Date
     
    'Attaching DATABASE
    Call oItem.EmbedObject(1454, "", "c:\missing.txt")
    oDoc.visable = True
    'Sending Message
    oDoc.SEND False
    exit_SendAttachment:
    On Error Resume Next
    Set oSess = Nothing
    Set oDB = Nothing
    Set oDoc = Nothing
    Set oItem = Nothing
    'Done
    Exit Sub
    err_handler:
              If Err.Number = 7225 Then
              MsgBox "File doesn't exist"
              Else
              MsgBox Err.Number & " " & Err.Description
              End If
    On Error GoTo exit_SendAttachment
    End Sub
    Mais lors de sont exécution j'ai une erreur :
    cf pj
    Quelqu'un à une idée
    Images attachées Images attachées  
    Aide les autres...
    Et les autres t'aideront....
    Mon site DVP
    N'oubliez pas de consulter les FAQ SharePoint et les cours et tutoriels SharePoint

    N'oubliez pas de voter pour les messages dont la réponse est pertinente

  3. #3
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    Ce code ce n'est pas du VBSCript !! ( mauvaise déclaration des variables !!) c'est quoi ton environnent de développement ?

    peu être un problème de version du client lotus notes ... qu'elle est ta version ?

  4. #4
    Expert confirmé
    Avatar de ludojojo
    Homme Profil pro
    Développeur SharePoint
    Inscrit en
    Avril 2008
    Messages
    2 967
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France

    Informations professionnelles :
    Activité : Développeur SharePoint
    Secteur : Conseil

    Informations forums :
    Inscription : Avril 2008
    Messages : 2 967
    Billets dans le blog
    5
    Par défaut
    En effet je me suis rendu compte en cherchant que ce code ressemble plus à du vba qu'à du vbs! dsl!
    Je fonctionne avec Lotus Notes 6.5
    Comment peut on faire quelque chose de similaire en vbs?
    Aide les autres...
    Et les autres t'aideront....
    Mon site DVP
    N'oubliez pas de consulter les FAQ SharePoint et les cours et tutoriels SharePoint

    N'oubliez pas de voter pour les messages dont la réponse est pertinente

  5. #5
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    je n'ai pas accès à ma une base lotus ... ici...


    mais tu devrai essayer d'adapter le code de la VB6 ici :

    http://vb.developpez.com/faq/?page=Reseau#mail_lotus

  6. #6
    Expert confirmé
    Avatar de ludojojo
    Homme Profil pro
    Développeur SharePoint
    Inscrit en
    Avril 2008
    Messages
    2 967
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France

    Informations professionnelles :
    Activité : Développeur SharePoint
    Secteur : Conseil

    Informations forums :
    Inscription : Avril 2008
    Messages : 2 967
    Billets dans le blog
    5
    Par défaut
    C'est du VBA?
    ça s'utilise depuis office? Excel?
    Comment peut ont adapter ce code vers du vbs? Je suis un peut perdu, dsl.
    Aide les autres...
    Et les autres t'aideront....
    Mon site DVP
    N'oubliez pas de consulter les FAQ SharePoint et les cours et tutoriels SharePoint

    N'oubliez pas de voter pour les messages dont la réponse est pertinente

  7. #7
    Expert confirmé
    Avatar de ludojojo
    Homme Profil pro
    Développeur SharePoint
    Inscrit en
    Avril 2008
    Messages
    2 967
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France

    Informations professionnelles :
    Activité : Développeur SharePoint
    Secteur : Conseil

    Informations forums :
    Inscription : Avril 2008
    Messages : 2 967
    Billets dans le blog
    5
    Par défaut
    J'ai trouvé la solution à mon pb, voici le code que j'ai créé. Celui-ci n'utilise pas directement Lotus Notes, en revanche il permet d'envoyer un mail et remplir le .TextBody avec le contenu de différents fichiers texte.
    Voici le code :
    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
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    Option Explicit
     
    Const PourLecture = 1
    Const cteAdresseSource = "bb@cc.dd"
     
    Dim objMail, sDestination, sPieceJointeCtre, sPieceJointeCB, msgTitre, msgTexteCtre, msgTexteCB, ContenuFichierTxt, lienTb_CB, lienTb_Ctre
     
    Set objMail = CreateObject("CDO.Message")
    sDestination = aa@bb.cc
    msgTitre = "mon titre"
    msgTexteCtre = "Bonjour," & vbCrLf & "Voici la le premier text" & vbCrLf
    msgTexteCB = "Voici un bout de text"
    sPieceJointeCtre = "fichierText_Ctre.txt"
    sPieceJointeCB = "fichier_Ctre"
    lienTb_CB = "http://www.monsite.com"
    lienTb_Ctre = "http://www.monsite.com"
     
    With objMail
    	.From = cteAdresseSource
    	.To = sDestination
    	.Subject = msgTitre
     
    	.Configuration.Fields _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "monsmtp"
    	.Configuration.Fields _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    	.Configuration.Fields.Update
     
    	If (sPieceJointeCB <> "" & sPieceJointeCtre <> "") Then
    		LirePieceJointe(sPieceJointeCtre)
    		.TextBody = msgTexteCtre & ContenuFichierTxt & vbCrLf & lienTb_Ctre
    		LirePieceJointe(sPieceJointeCB)
    		.TextBody = .TextBody & vbCrLf & vbCrLf & vbCrLf & vbCrLf & msgTexteCB & vbCrLf & ContenuFichierTxt & vbCrLf & lienTb_CB
    	End If
    	.Send
    End With
     
    Set objMail = Nothing
    WScript.Sleep 1000
    'MsgBox "Courriel envoyé !"
     
    Function LirePieceJointe(LeFichier)
     
        Dim objFSO, CeFichier
     
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        If (objFSO.FileExists(LeFichier)) Then
            Set CeFichier = objFSO.OpenTextFile(LeFichier, PourLecture)
            ContenuFichierTxt = CeFichier.ReadAll
            CeFichier.Close
            Set CeFichier = Nothing
        End If
     
        Set objFSO = Nothing
     
    End Function
    Je suis concient que ce code n'est pas forcément facile à comprendre, et je n'ai pas ue le temps de le commenter, si besoin faite moi signe, et je vous donnerais plus d'informations.
    Aide les autres...
    Et les autres t'aideront....
    Mon site DVP
    N'oubliez pas de consulter les FAQ SharePoint et les cours et tutoriels SharePoint

    N'oubliez pas de voter pour les messages dont la réponse est pertinente

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [AC-2007] Envoi mail via lotus 8.5 par VBA
    Par HABILER dans le forum VBA Access
    Réponses: 8
    Dernier message: 07/04/2015, 14h21
  2. Envoie mail via Lotus
    Par Julien42 dans le forum Access
    Réponses: 1
    Dernier message: 27/07/2010, 17h35
  3. envoi mails via lotus 7
    Par FERREY45 dans le forum VBA Access
    Réponses: 0
    Dernier message: 11/01/2008, 10h08
  4. Envoi de mail via lotus notes
    Par titof90 dans le forum VBA Access
    Réponses: 13
    Dernier message: 26/06/2007, 13h28
  5. envoi de mail via Lotus Notes 6 a partir d'excel
    Par gilbisti dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 21/06/2007, 13h41

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