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

Macros et VBA Excel Discussion :

Macro Import mail Lotus


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    M3r
    M3r est déconnecté
    Candidat au Club
    Inscrit en
    Juin 2004
    Messages
    3
    Détails du profil
    Informations forums :
    Inscription : Juin 2004
    Messages : 3
    Par défaut Macro Import mail Lotus
    Bonjour,

    Je cherche une macro pour importer le body d'un mail non lu dans Lotus Notes.
    J'ai trouvé quelques codes mais trop complexes et qui ne fonctionnent pas !
    Si quelqu'un à déjà fait ça je suis preneur!

    Cordialement Sylvain

    Un des codes que j'ai trouvé :

    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
    Sub Initialize()
     
       Dim s As notessession
       Dim w As notesuiworkspace
       Dim doc As notesdocument
       Dim collection As notesdocumentcollection
       Dim db As notesdatabase
       Dim v As Variant
       Set s = New notessession
    Set w = New notesuiworkspace
     
       Set db = s.currentdatabase
       Set collection = db.UnprocessedDocuments
       Set doc = collection.GetFirstDocument()
       Close
       Open "c:\body.txt" For Output As 1
       v = doc.getitemvalue("Body")
       Print #1, v(0)
       Close
       MsgBox v(0)
       v = atExplode(v(0), Chr$(13) + Chr$(10))
       Forall l In v
          MsgBox l
      End Forall
    End Sub
    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
    Function atExplode(ByVal s As String, div As String) As Variant
       ReDim result(0 To 0) As String
       Dim i As Integer
       Dim pos As Long
       Dim oldpos As Long
       Dim skip As Long
       oldpos = 1
       skip = Len(div)
       pos = InStr(s, div)
       Do Until pos = 0
          ReDim Preserve result(0 To i + 1)
          result(i) = Mid$(s, oldpos, pos - oldpos)
          i = i + 1
          oldpos = pos + skip
          pos = InStr(oldpos, s, div)
       Loop
       result(i) = Mid$(s, oldpos)
       atExplode = result
    End Function

  2. #2
    Membre éclairé
    Profil pro
    chomeur
    Inscrit en
    Août 2006
    Messages
    343
    Détails du profil
    Informations personnelles :
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : chomeur

    Informations forums :
    Inscription : Août 2006
    Messages : 343
    Par défaut
    peux tu etre plus clair?
    J'avoue ne pas comprendre ce que tu cherches à faire...

Discussions similaires

  1. Mailing en Macro Access vers Lotus Notes
    Par kafaust dans le forum IHM
    Réponses: 0
    Dernier message: 25/03/2008, 17h05
  2. Réponses: 9
    Dernier message: 30/05/2006, 17h55
  3. Envoi mail Lotus
    Par Flagny dans le forum Access
    Réponses: 1
    Dernier message: 27/04/2006, 15h09
  4. macro import text
    Par student007 dans le forum Access
    Réponses: 6
    Dernier message: 06/02/2006, 20h00
  5. JavaScript et mail Lotus Notes
    Par rdams dans le forum Autres langages pour le Web
    Réponses: 6
    Dernier message: 19/08/2005, 10h42

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