Discussion :

[nefertit]

Bonjour,

Je recherche un code VBA Access simple permettant de créer automatiquement un mail (avec un expéditeur, un destinataire, un objet et un corps de mail) dans lotus notes 8.5 (déjà ouvert),

Merci de votre aide.

[Invité]

Bonjour

As-tu consulté ce code de la FAQ : Comment envoyer un mail avec Lotus Notes ?

Philippe

[zoom61]

Bonjour

As-tu consulté ce code de la FAQ : Comment envoyer un mail avec Lotus Notes ?

Philippe

Elle fonctionne très bien. Je l'utilise régulièrement.

@+.

[nefertit43]

Bonjour,

Je souhaite à partir d'une base ACCESS faire en automatique un mail dans lotus.

Le code présenté semble faire une ouverture de session lotus mais nous avons lotus qui est sécurisé par une gestion de mot de passe. Nous ne connaissons pas notre mot de passe, celui ci est géré en automatique par une application qui renseigne tous les mots de passe de nos applications. Seule l'ouverture de session windows est réalisé par l'utilisateur.

Je voudrais donc que mon code demande à l'utilisateur d'ouvrir son lotus si celui ci n'est pas lançé. Et qu'ensuite il fasse directement le mail et l'envoie.

Est-ce possible?
Merci

[zoom61]

Salut,

Avec ce code tu pourras voir si Notes est ouvert :

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
Public Declare Function GetWindowText _
               Lib "user32" _
               Alias "GetWindowTextA" ( _
               ByVal hWnd As Long, _
               ByVal lpString As String, _
               ByVal cch As Long) As Long
 
Public Declare Function EnumWindows _
               Lib "user32" ( _
               ByVal lpEnumFunc As Long, _
               ByVal lParam As Long) As Long
 
Dim Ouvert As String
Dim NomProg As String
 
Function TestAppli()
    Dim lResult As Long
    NomProg = "Lotus" 'cherche le mot
    lResult = EnumWindows(AddressOf ProgrammeOuvert, 0&)
    MsgBox Ouvert
End Function
 
Public Function ProgrammeOuvert(ByVal hWnd As Long, _
                                ByVal lgParam As Long) As Long
    Dim Buffer As String
    Dim Result As Long
    Buffer = Space(255)
    Result = GetWindowText(hWnd, Buffer, 255)
    If Left(Buffer, 1) <> Chr(0) Then
        If InStr(UCase(Trim(Buffer)), UCase(NomProg)) <> 0 Then
            Ouvert = NomProg & " est ouvert !"
            Exit Function
        Else
            Ouvert = NomProg & " est fermé !"
        End If
    End If
    ProgrammeOuvert = 1
End Function

@+.