Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 02 11 22:09:42

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

MINI CLIENT NOTES ECRIT EN VB5 !

Information sur la source

Note :
Aucune note

Catégorie :Réseau & Internet Niveau :Initié Date de création :27/04/2005 Vu / téléchargé :7 991 / 445

Auteur : patrick

Ecrire un message privé

Site perso

Commentaire sur cette source (3)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Démonstration de l'utilisation des object COM de Lotus Notes. (Version 5 minimum) pour faire un petit "client" Notes en VB5 (lecture et affichage des message reçu)

Merci à Oguruma, modérateur de www.dominoarea.org (Forum Lotus Notes en Français)

Source

VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 5580
ClientLeft = 60
ClientTop = 450
ClientWidth = 6885
LinkTopic = "Form1"
ScaleHeight = 5580
ScaleWidth = 6885
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton CmdMove
Caption = "Move To"
Enabled = 0 'False
Height = 375
Left = 5880
TabIndex = 10
Top = 120
Width = 855
End
Begin VB.TextBox Folder
Height = 375
Left = 3240
TabIndex = 9
Top = 120
Width = 2655
End
Begin VB.CommandButton CmdLast
Caption = ">> |"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2280
TabIndex = 8
Top = 120
Width = 615
End
Begin VB.CommandButton CmdNext
Caption = ">"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1560
TabIndex = 7
Top = 120
Width = 615
End
Begin VB.CommandButton CmdPrevious
Caption = "<"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 840
TabIndex = 6
Top = 120
Width = 615
End
Begin VB.TextBox From
Height = 375
Left = 1200
Locked = -1 'True
TabIndex = 3
Top = 1080
Width = 5535
End
Begin VB.CommandButton cmdFirst
Caption = "| <<"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 2
Top = 120
Width = 615
End
Begin VB.TextBox Body
Height = 3855
Left = 120
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 1
Top = 1560
Width = 6615
End
Begin VB.TextBox subject
Height = 375
Left = 1200
Locked = -1 'True
TabIndex = 0
Top = 720
Width = 5535
End
Begin VB.Label Label
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "De :"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 240
TabIndex = 5
Top = 1080
Width = 855
End
Begin VB.Label Label
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Sujet :"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 240
TabIndex = 4
Top = 720
Width = 855
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'-----------------------------------------------------------------------------
' (C)2005 by Patrick MOIRE
'------------------------------------------------------------------------------
' DEMO UTILISATION DES OBJETS COM de Lotus Notes
'
' Merci à Oguruma, modérateur de www.dominoarea.org (Forum Lotus Notes en Français)
Private session As New NotesSession
Private dir As NotesDbDirectory
Private db As NotesDatabase
Private View As NotesView
Private doc As NotesDocument
'------------------------------------------------------------------------------------
' Connection a Lotus Notes
'------------------------------------------------------------------------------------
Private Sub Form_Paint()
Me.AutoRedraw = True
DoEvents
Me.Caption = "Connexion en cours..."
session.Initialize
' PS : en cas de problème, remplacer par :
'
' session.Initialize "password"
'
' voir :
'
' session.InitializeUsingNotesUserName "User", "password"
'
Set dir = session.GetDbDirectory("")
Set db = dir.OpenMailDatabase
Me.Caption = db.filename
Set View = db.GetView("($inbox)")
Me.Caption = db.filename & " : " & View.Name
Call cmdFirst_Click
End Sub
'------------------------------------------------------------------------------------
' Déplacement dans la liste des couriers
'------------------------------------------------------------------------------------
Private Sub cmdFirst_Click()
Set doc = View.GetFirstDocument
Me.CmdNext.Enabled = (Not doc Is Nothing)
Me.CmdPrevious.Enabled = False
Call Affiche
End Sub
Private Sub CmdPrevious_Click()
If Not doc Is Nothing Then
Set doc = View.GetPrevDocument(doc)
Me.CmdNext.Enabled = True
Me.CmdPrevious.Enabled = Not (View.GetPrevDocument(doc) Is Nothing)
End If
Call Affiche
End Sub
Private Sub CmdNext_Click()
If Not doc Is Nothing Then
Set doc = View.GetNextDocument(doc)
Me.CmdPrevious.Enabled = True
Me.CmdNext.Enabled = Not (View.GetNextDocument(doc) Is Nothing)
End If
Call Affiche
End Sub
Private Sub CmdLast_Click()
Set doc = View.GetLastDocument
Me.CmdNext.Enabled = False
Call Affiche
End Sub
'------------------------------------------------------------------------------------
' Affichage d'un courier
'------------------------------------------------------------------------------------
Private Sub Affiche()
Me.CmdMove.Enabled = (Not doc Is Nothing)
Me.cmdFirst.Enabled = Me.CmdPrevious.Enabled
Me.CmdLast.Enabled = Me.CmdNext.Enabled
Me.subject.Text = ""
Me.From.Text = ""
Me.Body.Text = ""
If Not doc Is Nothing Then
If doc.HasItem("subject") Then Me.subject.Text = doc.GetItemValue("subject")(0)
If doc.HasItem("from") Then Me.From.Text = doc.GetItemValue("from")(0)
If doc.HasItem("body") Then Me.Body.Text = doc.GetItemValue("body")(0)
End If
End Sub
'------------------------------------------------------------------------------------
' Deplacement d'un document dans un "folder"
'------------------------------------------------------------------------------------
Private Sub CmdMove_Click()
moveToFolder db, doc, Me.Folder.Text
End Sub
Function moveToFolder(dbMailbox As NotesDatabase, docMailbox As NotesDocument, folderName As String) As Boolean
Dim docMailBoxCopy As NotesDocument
On Error GoTo handleError
Set docMailBoxCopy = docMailbox.CopyToDatabase(dbMailbox)
docMailBoxCopy.PutInFolder folderName, True
docMailbox.Remove True
On Error GoTo 0
moveToFolder = True
Exit Function
handleError:
MsgBox "Error # " & Err & " : " & Error$ & " - line " & Erl, 16, "DEMOA Notes Error - moveToFolder"
End Function
'------------------------------------------------------------------------------------
' Déconnection de Lotus Notes
'------------------------------------------------------------------------------------
Private Sub Form_Unload(Cancel As Integer)
Set doc = Nothing
Set View = Nothing
Set db = Nothing
Set dir = Nothing
Set session = Nothing
End Sub

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   5580
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   6885
   LinkTopic       =   "Form1"
   ScaleHeight     =   5580
   ScaleWidth      =   6885
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton CmdMove 
      Caption         =   "Move To"
      Enabled         =   0   'False
      Height          =   375
      Left            =   5880
      TabIndex        =   10
      Top             =   120
      Width           =   855
   End
   Begin VB.TextBox Folder 
      Height          =   375
      Left            =   3240
      TabIndex        =   9
      Top             =   120
      Width           =   2655
   End
   Begin VB.CommandButton CmdLast 
      Caption         =   ">> |"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2280
      TabIndex        =   8
      Top             =   120
      Width           =   615
   End
   Begin VB.CommandButton CmdNext 
      Caption         =   ">"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1560
      TabIndex        =   7
      Top             =   120
      Width           =   615
   End
   Begin VB.CommandButton CmdPrevious 
      Caption         =   "<"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   840
      TabIndex        =   6
      Top             =   120
      Width           =   615
   End
   Begin VB.TextBox From 
      Height          =   375
      Left            =   1200
      Locked          =   -1  'True
      TabIndex        =   3
      Top             =   1080
      Width           =   5535
   End
   Begin VB.CommandButton cmdFirst 
      Caption         =   "| <<"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   120
      TabIndex        =   2
      Top             =   120
      Width           =   615
   End
   Begin VB.TextBox Body 
      Height          =   3855
      Left            =   120
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   1
      Top             =   1560
      Width           =   6615
   End
   Begin VB.TextBox subject 
      Height          =   375
      Left            =   1200
      Locked          =   -1  'True
      TabIndex        =   0
      Top             =   720
      Width           =   5535
   End
   Begin VB.Label Label 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "De :"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   1
      Left            =   240
      TabIndex        =   5
      Top             =   1080
      Width           =   855
   End
   Begin VB.Label Label 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Sujet :"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   0
      Left            =   240
      TabIndex        =   4
      Top             =   720
      Width           =   855
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

'-----------------------------------------------------------------------------
' (C)2005 by Patrick MOIRE
'------------------------------------------------------------------------------
' DEMO UTILISATION DES OBJETS COM de Lotus Notes
'
' Merci à Oguruma, modérateur de www.dominoarea.org (Forum Lotus Notes en Français)


  Private session As New NotesSession
  Private dir As NotesDbDirectory
  Private db As NotesDatabase
  Private View As NotesView
  Private doc As NotesDocument


'------------------------------------------------------------------------------------
' Connection a Lotus Notes
'------------------------------------------------------------------------------------

Private Sub Form_Paint()

  Me.AutoRedraw = True
  DoEvents
  
  Me.Caption = "Connexion en cours..."
  
  session.Initialize
 ' PS : en cas de problème, remplacer par :
 '
 ' session.Initialize "password"
 '
 ' voir :
 '
 ' session.InitializeUsingNotesUserName "User", "password"
 '
   
  Set dir = session.GetDbDirectory("")
  Set db = dir.OpenMailDatabase
  
  Me.Caption = db.filename
  
  Set View = db.GetView("($inbox)")
  Me.Caption = db.filename & " : " & View.Name
  
  Call cmdFirst_Click

End Sub
  
  
'------------------------------------------------------------------------------------
' Déplacement dans la liste des couriers
'------------------------------------------------------------------------------------

Private Sub cmdFirst_Click()
  Set doc = View.GetFirstDocument
  Me.CmdNext.Enabled = (Not doc Is Nothing)
  Me.CmdPrevious.Enabled = False
  Call Affiche
End Sub

Private Sub CmdPrevious_Click()
  If Not doc Is Nothing Then
    Set doc = View.GetPrevDocument(doc)
    Me.CmdNext.Enabled = True
    Me.CmdPrevious.Enabled = Not (View.GetPrevDocument(doc) Is Nothing)
  End If
  Call Affiche
End Sub

Private Sub CmdNext_Click()
  If Not doc Is Nothing Then
    Set doc = View.GetNextDocument(doc)
    Me.CmdPrevious.Enabled = True
    Me.CmdNext.Enabled = Not (View.GetNextDocument(doc) Is Nothing)
  End If
  Call Affiche
End Sub

Private Sub CmdLast_Click()
  Set doc = View.GetLastDocument
  Me.CmdNext.Enabled = False
  Call Affiche
End Sub

  
'------------------------------------------------------------------------------------
' Affichage d'un courier
'------------------------------------------------------------------------------------

Private Sub Affiche()

  Me.CmdMove.Enabled = (Not doc Is Nothing)
  Me.cmdFirst.Enabled = Me.CmdPrevious.Enabled
  Me.CmdLast.Enabled = Me.CmdNext.Enabled
  
  Me.subject.Text = ""
  Me.From.Text = ""
  Me.Body.Text = ""

  If Not doc Is Nothing Then
    If doc.HasItem("subject") Then Me.subject.Text = doc.GetItemValue("subject")(0)
    If doc.HasItem("from") Then Me.From.Text = doc.GetItemValue("from")(0)
    If doc.HasItem("body") Then Me.Body.Text = doc.GetItemValue("body")(0)
  End If
  
End Sub


'------------------------------------------------------------------------------------
' Deplacement d'un document dans un "folder"
'------------------------------------------------------------------------------------

Private Sub CmdMove_Click()
  moveToFolder db, doc, Me.Folder.Text
End Sub

Function moveToFolder(dbMailbox As NotesDatabase, docMailbox As NotesDocument, folderName As String) As Boolean
  Dim docMailBoxCopy As NotesDocument
    On Error GoTo handleError
      Set docMailBoxCopy = docMailbox.CopyToDatabase(dbMailbox)
      docMailBoxCopy.PutInFolder folderName, True
      docMailbox.Remove True
    On Error GoTo 0
    moveToFolder = True
    Exit Function
handleError:
  MsgBox "Error # " & Err & " : " & Error$ & " - line " & Erl, 16, "DEMOA Notes Error - moveToFolder"
End Function


'------------------------------------------------------------------------------------
' Déconnection de Lotus Notes
'------------------------------------------------------------------------------------

Private Sub Form_Unload(Cancel As Integer)
  Set doc = Nothing
  Set View = Nothing
  Set db = Nothing
  Set dir = Nothing
  Set session = Nothing
End Sub

Conclusion

Allez... j'en profite pour mettre un code pour envoyer un email via Notes. Pas de moi, mais fait un bon complément à mon code !

Private Sub Send()

    Dim session As Object
    Dim db As Object
    Dim doc As Object

    Set session = CreateObject("Notes.NotesSession")
    Set db = session.GetDatabase("", "")
    Call db.OPENMAIL

    Set doc = db.CreateDocument()
    With doc
        .Form = "Memo"
        .SendTo = "adresse@serveur.com"
        .CopyTo = "adresse@serveur.com"
        .subject = "Petit test"
        .Body = "Ceci est un petit test d'envoie de message"
        .From = session.CommonUserName
        .PostedDate = Now
        .SaveMessageOnSend = True
    End With
    Call doc.Send(True)

    Set session = Nothing
    Set db = Nothing
    Set doc = Nothing

End Sub

Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

lotusNotes.frm 10 279 octets
LotusNotes.jpg 25 281 octets
lotusNotes.vbp 634 octets

Télécharger le zip

Sources du même auteur

AJOUT D'UN CONTRÔLE CALENDRIER EN DYNAMIQUE SUR UNE FORM, D'...

WEBNTCVS : CONSULTATION D'UN RÉFÉRENCIEL NT-CVS DEPUIS UN N...

CHECKBOX DANS UNE DBGRID

GESTION DES ERRORLEVEL EN VB

TRAITEMENT SUR IMAGE : ROTATION 90°, EFFETS 3D, CONVERSION E...

Toutes les sources de patrick

Sources de la même categorie

GESTIONNAIRE DE TÉLÉCHARGEMENT, AVEC REPRISE ET MULTITHREADI... par Madx23

CONVERTIR DU TEXTE RTF EN CODE HTML ET VICE-VERSA par vicosta

DICTIONAIRE TEXT/AUDIO/VISUELLE ANGLAIS AVEC WEBBROWSER CONT... par majnounmajda

NSLOOKUP EN VB.NET OU COMMENT FAIRE UNE REQÛETE DNS EN PRÉCI... par ShareVB

MINI SEVEUR HTTP AVEC INTERFACE GRAPHIQUE ET IMPLÉMENTATIONS... par lemout

Toutes les sources de la catégorie Réseau & Internet

Commentaires et avis

Commentaire de Neo.balastik le 27/04/2005 17:29:04

J'essaye demain à mon boulot.

Commentaire de Derrick soft le 20/06/2005 19:29:34

Bonjour,

Je ne pensais pas notre Oguruma si célèbre.

Cordialement

Stéphane Maillard
Saint Malo - Creil - Paris
----------------------------------------------------------------------------------------
http://www.dominoarea.org
----------------------------------------------------------------------------------------
Administrateur (Débutant) & Développeur Lotus Notes (A vous de juger)

Commentaire de EvilGost le 17/03/2006 12:06:06

ton code oblige a avoir notes d'ouvert...il y a un moyen d'envoyer un mail avec notes fermé en injectant le mot de passe a l'initialize

Ajouter un commentaire

Nos sponsors

Derniers Blogs

SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS par Groc

[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES par gpommier

[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet

TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice

MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko

Forum

RE : CREER UNE VERSION D'EVALUATION D'UN LOGICIEL par NHenry

RE : CREER UNE VERSION D'EVALUATION D'UN LOGICIEL par ucfoutu

CREER UNE VERSION D'EVALUATION D'UN LOGICIEL par cophy

RE : UN NOM EGALE UNE COULEUR par ucfoutu

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Passerelle Pericles sur site Joomla 17
Budget : 499€
Infogerance Serveur Debian Linux
Budget : 2 400€
Developpeur applications iphone - ipad - android
Budget : 800€

Logiciels

PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System
Easy-Planning (1.0.0.1)
EASY-PLANNING (1.0.0.1)

Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ...

Cliquez pour télécharger Easy-Planning
COLLECTOR PLUS (3.00B)
COLLECTOR PLUS (3.00B)

COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par : - L...

Cliquez pour télécharger COLLECTOR PLUS
LettresFaciles 2011 (8.0.0.1)
LETTRESFACILES 2011 (8.0.0.1)

LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types. Son inte...

Cliquez pour télécharger LettresFaciles 2011