[Toutes versions] Les messages avec Access

[naphta]

Bonsoir à tous,

J'ai eu qq soucis avec Access 2010 et OLEDB et maintenant quand on lit ce que va faire Microsoft à propos de la messagerie ...

Avec Access quand on veut envoyer une notification sans voir le message et ne pas avoir de boite d'alerte sur Outlook ce sont les CDO
mais ici microsoft parle de l'abandon des CDO :
http://technet.microsoft.com/en-us/l.../aa998911.aspx

Avec Access quand on veut envoyer plus d'un message avec des pièces attachées la seule solution est l'API MAPI32.DLL.
Et là, j'ai eu la suprise de constater que cela ne fonctionne plus dans un environnement 64B avec Windows Live Mail.

Je teste en ce moment des activeX tiers de type POP, SMTP et IMAP mais cela est relativement couteux et je vais être obligé de faire un formulaire façon messagerie.

Je voudrai savoir si des personnes ici on des alternatives pour les notifications et l'envoi de n pièces attachées sans utiliser l'automation sur Outlook ?

Redemption une personne l'a-t-elle utilisé ?

Merci
PS :J'ai aussi testé msmapi.ocx mais sur certain poste équipé d'outlook il ont le message d'alerte.

[Thierry_PALLIER]

Bonjour Naphta .

J'utilise la dll "Redemption" depuis plusieurs années ,pour l'envoie de mails avec pj ,recherche de mails ,suppression de mails en fonction d'une adresse mail ou d'un numero de devis ,le tout dans ma boite de reception ou dossiers persos et celui de mon délégué .
Au boulot j'ai Windows NT et Access 2003.
Voici un des codes que j'utilise:

Code :

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
Public Sub SendMail(devis As String, Monadresse As String, Lefichier As String, MaCopie As String)    ' As Boolean
 
    On Error GoTo Err_SendMail
    'sans reference Outlook
 
    Dim olApp As Object
    Dim olMail
    Dim SafeMail As Redemption.SafeMailItem
    Dim StrSign As String, strFormatSign As String
    Set olApp = CreateObject("Outlook.Application")
    Set SafeMail = CreateObject("Redemption.SafeMailItem")
 
    Set olMail = olApp.CreateItem(olMailItem)
    SafeMail.Item = olMail
 
    'selectionne une signature
    StrSign = DriveLinkedTable & "\Message.htm"
 
    strFormatSign = LireSignature(StrSign)
 
    With olMail
 
        .To = Monadresse
        If Left(Lefichier, 5) = "devis" Then
            .Subject = Left(Lefichier, Len(Lefichier) - 4)
        Else
            .Subject = "confirmation/modification " & Lefichier
        End If
 
        .HTMLBody = "Bonjour,veuillez trouver en page jointe la " & Lefichier & ". Cordialement" & Chr(13) & Chr(10) & strFormatSign       'CORPS DU MESSAGE"
 
        .Attachments.Add devis
        If Not IsNull(MaCopie) Then
 
            .CC = MaCopie
        End If
    End With
    SafeMail.Send
 
 
    Set SafeMail = Nothing
    Set olMail = Nothing
    Set olApp = Nothing
 
 
Err_SendMail:
 
End Sub

Je ne reference pas Outlook et l'ordre des déclaration semble important .
L'informatique n'est pas ma specialité ,mais si cela peut t'aider !
A+

[Domi2]

Bonsoir,

Faire une recherche Google avec "Access libMAIL".

J'avais commencé des tests (avant de mettre un peu de côté par manque de temps) et cela semble très intéressant.

Domi2

[naphta]

Bonjour et merci pour les réponses,

Redemption avec Windows Live Mail, il faut installer les nouveaux CDO 1.2.1 sur les machines sans Outlook.

Avec redemption le message part bien mais si l'on veut le voir avant de l'envoyer l'appli se plante. Dmitry Streblechenko de redemption ne sait pas pour le moment d'où cela provient il dit que sans Outlook ..

Pourquoi Windows Live Mail ? parce-que avec 2008 serveur et TSE pour avoir 3 Outlook 2010 faut acheter un pack de 5 licences pleines Office 2010 à près de 1800 euros !!

Merci pour le code Thierry avec CreateObject on évite effectivement de déclarer la biblio Outlook dans les références.

Je vais me résoudre à acheter 2 DLL, IMAP et POP/SMTP chez Chilkat à 160 euros pour les utilisateurs de TSE et faire un formulaire pour l'envoi de message.

A bientôt

[naphta]

Bonjour,

Bon je reprends tout,
Domi pour la proposition de Libmail je peux pas la mettre en place dans le réseau à cause des interdictions du parefeu.

Une question voila le code pas fini encore en détectant préalablement si le poste possède bien Outlook.

Code :

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
 
Function MSOEmail(Optional LeSujet As String , Optional lecorps , Optional EmailAdr As String , Optional ladoc As String)
 
Dim olApp As Object
Dim oItem As Object
 
  Set olApp = CreateObject("Outlook.Application")
    If olApp Is Nothing Then
        Exit Function
    End If
 
  Set oItem = olApp.CreateItem(0)
 
  With oItem
 
    .To = EmailAdr
        If Not IsMissing(LeSujet) Then .Subject = LeSujet
        If Not IsMissing(lecorps) Then .Body = lecorps
 
        If Not IsMissing(ladoc) Then
            Dim lenvoi
            Dim nbrdoc As Integer
            Dim i As Integer
            nbrdoc = UBound(Split(ladoc, ";"))
            lenvoi = Split(ladoc, ";")
            For i = 0 To nbrdoc - 1
                .Attachments.Add lenvoi(i)
            Next i
        End If
 
    .Display True
 
  End With
 
    Set olApp = Nothing: Set oItem = Nothing
 
End Function

La ligne display true affiche bien le formulaire en modale mais je voudrai activer la fenêtre au premier plan parfois je l'ai parfois non ...

Une idée ??

A+

[Thierry_PALLIER]

Bonjour Naphta

en ajoutant

Code :

Application.Windows(1).Activate

A placer avant le .display
Perso ,je n'ai pas mis "True" après le ".display" (outlook 2003).
Et ça marche qu'Outlook soit ouvert ou non

En fait, j'ai 2 façons d'interagir avec Outlook.
- ajouter un message additionnel sans ouvrir Outlook
-ou bien ouvrir le mail avant l'envoi (pour ajouter un commentaire..)
A+

[naphta]

Bonjour,

J'ai essayé d'activé la fenêtre avec la commande

Code :

1
2
 
Application.Windows(1).Activate

J'ai galéré je suis devenu zinzin

finalement en enlevant le true après le display puis en comptant le nombre de fenêtre Oulouk ouvertes j'ai réussi à activer le message au premier plan

mais avec ceci au début :

Code :

1
2
3
4
5
6
7
8
 
Dim olApp As Object
Dim oItem As Object
Dim olInspectors As Object
Dim NbrFenetre As Integer
 
  Set olApp = CreateObject("Outlook.Application")
  Set olInspectors = olApp.Inspectors

puis à la fin

Code :

1
2
3
4
5
 
NbrFenetre = olApp.Inspectors.Count
olInspectors.Item(NbrFenetre).display
 
Set olApp = Nothing: Set oItem = Nothing: Set olInspectors = Nothing

Me reste à savoir comment docmd.sendobject arrive à activer Windows Live Mail pour l'envoi de message.

Thierry toi tu peux envoyer un mail sans ouvrir Outlook tu as redemption.

A+

[naphta]

Bonsoir,

Désolé pour le précédent post mais ça ne marche pas avec inspector activate display
cela ne ramène pas systématiquement la fenêtre au premier plan, c'est bizarre avec l'accdb quasiment à tous les coups mais après compilation ...

Je teste les API

a+

[Thierry_PALLIER]

naphta
Je pense que si tu rajoute ".save" avant le ".display" , ton mail en cours de constuction deviendra le 1° item de olapp.inspectors . Donc "Application.Windows(1).Activate" serait ok . J'ai verifié (Outlook étant ouvert) , meme si j'ai plusieurs autre mails ouverts avant.
Par contre ,s'il au final ,il n'est pas envoyé , tu le retrouvera dans les brouillons.

Pour le reste ........
A+

[Thierry_PALLIER]

Bonjour le forum.
Ne pas tenir compte de ce que j'ai écrit dans le message précédent sur inspectors.item .
Par contre , j'arrive bien à afficher le mail à l'ecran quel que soit son item !
Bon courage pour la suite
Thierry

[naphta]

Bonjour à tous,

J'ai décidé de me fracasser pour 2 activeX IMAP et le bundle Email de chez Chilkat,

Ça tourne nickel j'ai plus besoin de rien.

J'utilise même plus docmd.sendobject

a+

[naphta]

Bonjour à tous,

Bon pour finir les utilisateurs avaient besoin de message en HTML et évidement avec les signatures graphiques alors nouvel ActiveX que je recommande, pas onéreux et bien l'éditeur HTML de chez nBit.

Parfait pour les messages et même Emailing personnalisé pour moins de 50 euros.

à bientôt