Discussion :

[Tierisa]

bonjour

je souhaiterais pouvoir envoyer des mails à des personnes de ma société donc tous sur le même réseau mais sans utiliser outlook ou autre. Faire comme lorsque vous êtes sur un site web et qu'un message vous est envoyé par php ou html (je ne suis pas un pro) et qu'aucune messagerie n'est ouverte. Est-ce possible de faire cela en vba sous access SVP?
merci d'avance

[Oleff]

Bonjour,

C'est possible et le code doit être récupérable sur développez. Cherche du côté de la bibliothèque CDO for microsoft exchange.

[Tonioyo]

Bonjour,

La solution la plus simple serrait de "piloter" Outlook pour créer et envoyer un mail.

Excel possède aussi un mécanisme de mails (méthode SendMail de l'objet workbook).

Si ce n'est pas possible il faut essayer d'utiliser les API windows et là ça deviens plus difficile.

Le principal problème c'est qu'ils doivent avoir un certain format.

[Tierisa]

je le fais deja avec outlook et justement je voudrais m'affranchir de ça. je vais continuer à chercher. merci pour vos conseils

[Oleff]

ici tu trouveras de bonnes pistes.

[FreeAccess]

Bonjour

Question simple: Tu souhaite envoyer un "message" à tous les connectés d'un même réseau......mais je ne pense pas que tu veuille le faire sous ACCESS

[EDIT] en effet j'avais louper cette phrase...

..Est-ce possible de faire cela en vba sous access SVP?

Regarde peut-être du coté de l'instruction DOS net send

Il existe également des programmes gratuits qui font cela très bien (recherche sur le WEB) comme :
- WinPopup Express
- IntraMessenger
- .....etc

...à voir

[Lincoln911]

Bonjour Tierisa, bonjour à tous
si j'ai bien compris ton besoin , voici à peu près ce que tu cherche:
Un exemple que j'utilise pour envoyer des mails via un serveur Exchange sur réseau local.

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
 
Public Function EnvoyerMail(ByVal SendFrom As String, _
                            ByVal SendTo As String, _
                            ByVal Subject As String, _
                            ByVal PlainTextBody As String, _
                            Optional FullPathFileName As String)
    Dim Message As New CDO.Message
    Dim config As CDO.Configuration
 
    ' Configuration du mail
    Set config = New CDO.Configuration
    With config.Fields
        .Item(cdoSendUsingMethod) = cdoSendUsingPort
        .Item(cdoSMTPServer) = "nomDeMonServeurExchagneIci"
        .Item(cdoSendUserName) = "NomUtilisateur"
        .Item(cdoSendPassword) = "MotDePasse"
        .Item(cdoSMTPServerPort) = 25
        .Update
    End With
 
    ' Envoi du message
    Set Message = New CDO.Message
    Set Message.Configuration = config
    Message.From = SendFrom
    Message.To = SendTo
    Message.Subject = Subject
    Message.TextBody = PlainTextBody
    Message.AddAttachment ("C:\cheminfichier.txt") ' exemple de fichier à joindre
    Message.Send
    Set Message = Nothing
End Function

Elle fonctionne correctement, cela étant dit, les mails envoyés en dehors des adresses mail de ma société, genre vers Gmail ou Yahoo, sont refusés (erreur!). J'imagine que cela est dû à la configuration du serveur Exchange !

[Tierisa]

oui c'est un truc de ce style que je cherche. En fait c'est pour que les utilisateurs de l'appli puissent récupérer leur mot de passe s'ils l'ont perdu en envoyant un mail automatiquement sur leur boite aux lettres. Je vais voir avec le service info pour connaitre le nom du serveur et je vais faire l'essai. Merci