PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

|
|
|
FR
Inicio → WINDEV 2024 → Envoie Email avec Exchange
Envoie Email avec Exchange
Iniciado por adil.bertal, jun., 23 2005 4:59 AM - 3 respostas
#1
Publicado em junho, 23 2005 - 4:59 AM
salut,

notre réseau local contient un serveur exchange qui permet d'envoyer des emails vers l'extérieur et les postes client sont configuré sans SMTP ni POP puisque l'identification se fait par utilisateur.

est ce qu'il y'a une possibilité d'envoyer mes émails à travers mon application Windev tout en gardant ses paramètres exchanges.

merci,

ADIL BERTAL
#2
Publicado em junho, 23 2005 - 10:10 AM
ca c'est le code que j'utilise en VBA pour faire de même.
Ca marche bien. Le client outlook n'a pas besoin d'etre ouvert.




Public Sub EnvoiMailAutomatique(ByVal pTo As String, ByVal pSubject As String, ByVal pBody As String)

Dim wOutlook As Object
Dim wMail As Object

' On crée une instance d'Outlook :
Set wOutlook = CreateObject("Outlook.Application")

' Et on crée un élément Outlook, qui sera un message E-Mail :
Set wMail = wOutlook.CreateItem(0)

wMail.To = pTo
wMail.Subject = pSubject
wMail.Body = pBody
wMail.send

Set wOutlook = Nothing

End Sub
#3
Publicado em junho, 23 2005 - 10:40 AM
Bonjour,

Il existe une syntaxe pour la commande eMailOuvreSession() qui permet d'utiliser
le profil Outlook (protocole exchange) du poste client et non le protocole
POP3.


--
Ed en Ligne


"Adil BERTAL" <adil.bertal@si2smaghreb.com> a écrit dans le message de news:
42b9fef1$1@news.pcsoft.fr...

salut,

notre réseau local contient un serveur exchange qui permet d'envoyer des
emails vers l'extérieur et les postes client sont configuré sans SMTP ni
POP puisque l'identification se fait par utilisateur.

est ce qu'il y'a une possibilité d'envoyer mes émails à travers mon
application Windev tout en gardant ses paramètres exchanges.

merci,

ADIL BERTAL
#4
Publicado em junho, 23 2005 - 3:14 PM
merci , je l'essaierai j'espère que ca marche

Adil BERTAL
→ Voltar para WINDEV 2024