Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic Envoi de mail avec Outlook Express

Envoi de mail avec Outlook Express

5 réponses
Avatar
Daniel AUBRY
Bonjour à tous,

je ne suis pas arrivé à envoyer un mail avec MAPI
(voir mon post "Envoi de mail avec MAPI") je tente
ma chance avec Outlook Express.
Mon code fonctionne :
1) cela impose Outlook sur la machine mais ce n'est pas un problème
2) Outlook s'ouvre et il faut valider l'envoi du message
3) je n'ai pas trouvé comment mettre tous les destinataires en ccc

Mon code :

SujetMail = "Confirmation d'inscription au Triathlon de xxxxx 2007."

CorpsMail = "Votre inscription nous est bien parvenue et"
CorpsMail = CorpsMail & vbCrLf
CorpsMail = CorpsMail & "a été saisie ce jour "
CorpsMail = CorpsMail & Format(Date, "dd/mm/yyyy")
CorpsMail = CorpsMail & vbCrLf & vbCrLf & vbCrLf
CorpsMail = CorpsMail & "Le réceptionnaire"

AdresseMail = "toto@free.fr"
AdresseMail = AdresseMail & "; titi@free.fr"
AdresseMail = AdresseMail & "; tata@free.fr"

Logiciel = "C:\Program Files\Outlook Express\msimn.exe"
OptionLancement1 = "/mailurl:mailto:"
OptionLancement2 = "?Subject="
OptionLancement3 = "&Body="

ChaineLancement = Logiciel
ChaineLancement = ChaineLancement & " "
ChaineLancement = ChaineLancement & OptionLancement1
ChaineLancement = ChaineLancement & AdresseMail
ChaineLancement = ChaineLancement & OptionLancement2
ChaineLancement = ChaineLancement & SujetMail
ChaineLancement = ChaineLancement & OptionLancement3
ChaineLancement = ChaineLancement & CorpsMail

Shell (ChaineLancement), 3

Si quelqu'un a une p'tite idée.........
Dany
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
David
Bonjour Daniel,

Voici le code pour que la validation
soit automatique :

On Error Resume Next
Do
Err.Clear
Call AppActivate(Sujet, False)
DoEvents
Loop Until Err.Number = 0
Call SendKeys("%(s)", True)

a+
Jean-Pol DAVID


"Daniel AUBRY" a écrit dans le message de news:
45d84697$0$19816$
Bonjour à tous,

je ne suis pas arrivé à envoyer un mail avec MAPI
(voir mon post "Envoi de mail avec MAPI") je tente
ma chance avec Outlook Express.
Mon code fonctionne :
1) cela impose Outlook sur la machine mais ce n'est pas un problème
2) Outlook s'ouvre et il faut valider l'envoi du message
3) je n'ai pas trouvé comment mettre tous les destinataires en ccc

Mon code :

SujetMail = "Confirmation d'inscription au Triathlon de xxxxx 2007."

CorpsMail = "Votre inscription nous est bien parvenue et"
CorpsMail = CorpsMail & vbCrLf
CorpsMail = CorpsMail & "a été saisie ce jour "
CorpsMail = CorpsMail & Format(Date, "dd/mm/yyyy")
CorpsMail = CorpsMail & vbCrLf & vbCrLf & vbCrLf
CorpsMail = CorpsMail & "Le réceptionnaire"

AdresseMail = ""
AdresseMail = AdresseMail & "; "
AdresseMail = AdresseMail & "; "

Logiciel = "C:Program FilesOutlook Expressmsimn.exe"
OptionLancement1 = "/mailurl:mailto:"
OptionLancement2 = "?Subject="
OptionLancement3 = "&Body="

ChaineLancement = Logiciel
ChaineLancement = ChaineLancement & " "
ChaineLancement = ChaineLancement & OptionLancement1
ChaineLancement = ChaineLancement & AdresseMail
ChaineLancement = ChaineLancement & OptionLancement2
ChaineLancement = ChaineLancement & SujetMail
ChaineLancement = ChaineLancement & OptionLancement3
ChaineLancement = ChaineLancement & CorpsMail

Shell (ChaineLancement), 3

Si quelqu'un a une p'tite idée.........
Dany



Avatar
Daniel AUBRY
Merci, cela va me servir.
Par contre je ne saisi toujours pas comment faire pour mettre
tous les destinataires en copie cachée.

Merci, bonne soirée.
Dany

"David" a écrit dans le message de news:

Bonjour Daniel,

Voici le code pour que la validation
soit automatique :

On Error Resume Next
Do
Err.Clear
Call AppActivate(Sujet, False)
DoEvents
Loop Until Err.Number = 0
Call SendKeys("%(s)", True)

a+
Jean-Pol DAVID


"Daniel AUBRY" a écrit dans le message de news:
45d84697$0$19816$
Bonjour à tous,

je ne suis pas arrivé à envoyer un mail avec MAPI
(voir mon post "Envoi de mail avec MAPI") je tente
ma chance avec Outlook Express.
Mon code fonctionne :
1) cela impose Outlook sur la machine mais ce n'est pas un problème
2) Outlook s'ouvre et il faut valider l'envoi du message
3) je n'ai pas trouvé comment mettre tous les destinataires en ccc

Mon code :

SujetMail = "Confirmation d'inscription au Triathlon de xxxxx 2007."

CorpsMail = "Votre inscription nous est bien parvenue et"
CorpsMail = CorpsMail & vbCrLf
CorpsMail = CorpsMail & "a été saisie ce jour "
CorpsMail = CorpsMail & Format(Date, "dd/mm/yyyy")
CorpsMail = CorpsMail & vbCrLf & vbCrLf & vbCrLf
CorpsMail = CorpsMail & "Le réceptionnaire"

AdresseMail = ""
AdresseMail = AdresseMail & "; "
AdresseMail = AdresseMail & "; "

Logiciel = "C:Program FilesOutlook Expressmsimn.exe"
OptionLancement1 = "/mailurl:mailto:"
OptionLancement2 = "?Subject="
OptionLancement3 = "&Body="

ChaineLancement = Logiciel
ChaineLancement = ChaineLancement & " "
ChaineLancement = ChaineLancement & OptionLancement1
ChaineLancement = ChaineLancement & AdresseMail
ChaineLancement = ChaineLancement & OptionLancement2
ChaineLancement = ChaineLancement & SujetMail
ChaineLancement = ChaineLancement & OptionLancement3
ChaineLancement = ChaineLancement & CorpsMail

Shell (ChaineLancement), 3

Si quelqu'un a une p'tite idée.........
Dany







Avatar
David
Re,

Sur un site en anglais j'ai trouver ceci pour CC :

Dim cc As String
cc = " "
'''mailto:" & strTo & "?Cc=" & strCc
AdresseMail = "" & "?CC=" & cc

Chez moi cela met bien al 2eme adresse en CC.

Tu dois pouvoir y arriver pour CCi.

Voici l'adresse du site :
http://visualbasic.ittoolbox.com/groups/technical-functional/vb-access-l/problem-in-sendkeys-275237

a+
Jean-Pol DAVID



"Daniel AUBRY" a écrit dans le message de news:
45d89b1f$0$3860$
Merci, cela va me servir.
Par contre je ne saisi toujours pas comment faire pour mettre
tous les destinataires en copie cachée.

Merci, bonne soirée.
Dany

"David" a écrit dans le message de news:

Bonjour Daniel,

Voici le code pour que la validation
soit automatique :

On Error Resume Next
Do
Err.Clear
Call AppActivate(Sujet, False)
DoEvents
Loop Until Err.Number = 0
Call SendKeys("%(s)", True)

a+
Jean-Pol DAVID


"Daniel AUBRY" a écrit dans le message de news:
45d84697$0$19816$
Bonjour à tous,

je ne suis pas arrivé à envoyer un mail avec MAPI
(voir mon post "Envoi de mail avec MAPI") je tente
ma chance avec Outlook Express.
Mon code fonctionne :
1) cela impose Outlook sur la machine mais ce n'est pas un problème
2) Outlook s'ouvre et il faut valider l'envoi du message
3) je n'ai pas trouvé comment mettre tous les destinataires en ccc

Mon code :

SujetMail = "Confirmation d'inscription au Triathlon de xxxxx 2007."

CorpsMail = "Votre inscription nous est bien parvenue et"
CorpsMail = CorpsMail & vbCrLf
CorpsMail = CorpsMail & "a été saisie ce jour "
CorpsMail = CorpsMail & Format(Date, "dd/mm/yyyy")
CorpsMail = CorpsMail & vbCrLf & vbCrLf & vbCrLf
CorpsMail = CorpsMail & "Le réceptionnaire"

AdresseMail = ""
AdresseMail = AdresseMail & "; "
AdresseMail = AdresseMail & "; "

Logiciel = "C:Program FilesOutlook Expressmsimn.exe"
OptionLancement1 = "/mailurl:mailto:"
OptionLancement2 = "?Subject="
OptionLancement3 = "&Body="

ChaineLancement = Logiciel
ChaineLancement = ChaineLancement & " "
ChaineLancement = ChaineLancement & OptionLancement1
ChaineLancement = ChaineLancement & AdresseMail
ChaineLancement = ChaineLancement & OptionLancement2
ChaineLancement = ChaineLancement & SujetMail
ChaineLancement = ChaineLancement & OptionLancement3
ChaineLancement = ChaineLancement & CorpsMail

Shell (ChaineLancement), 3

Si quelqu'un a une p'tite idée.........
Dany











Avatar
David
Encore moi,

Oui, pour CCi il faut utiliser BCC :

& "?BCC=" & cc

Voila, voila.

a+
Jean-Pol DAVID



"David" a écrit dans le message de news:
%
Re,

Sur un site en anglais j'ai trouver ceci pour CC :

Dim cc As String
cc = " "
'''mailto:" & strTo & "?Cc=" & strCc
AdresseMail = "" & "?CC=" & cc

Chez moi cela met bien al 2eme adresse en CC.

Tu dois pouvoir y arriver pour CCi.

Voici l'adresse du site :
http://visualbasic.ittoolbox.com/groups/technical-functional/vb-access-l/problem-in-sendkeys-275237

a+
Jean-Pol DAVID



"Daniel AUBRY" a écrit dans le message de news:
45d89b1f$0$3860$
Merci, cela va me servir.
Par contre je ne saisi toujours pas comment faire pour mettre
tous les destinataires en copie cachée.

Merci, bonne soirée.
Dany

"David" a écrit dans le message de news:

Bonjour Daniel,

Voici le code pour que la validation
soit automatique :

On Error Resume Next
Do
Err.Clear
Call AppActivate(Sujet, False)
DoEvents
Loop Until Err.Number = 0
Call SendKeys("%(s)", True)

a+
Jean-Pol DAVID


"Daniel AUBRY" a écrit dans le message de news:
45d84697$0$19816$
Bonjour à tous,

je ne suis pas arrivé à envoyer un mail avec MAPI
(voir mon post "Envoi de mail avec MAPI") je tente
ma chance avec Outlook Express.
Mon code fonctionne :
1) cela impose Outlook sur la machine mais ce n'est pas un problème
2) Outlook s'ouvre et il faut valider l'envoi du message
3) je n'ai pas trouvé comment mettre tous les destinataires en ccc

Mon code :

SujetMail = "Confirmation d'inscription au Triathlon de xxxxx 2007."

CorpsMail = "Votre inscription nous est bien parvenue et"
CorpsMail = CorpsMail & vbCrLf
CorpsMail = CorpsMail & "a été saisie ce jour "
CorpsMail = CorpsMail & Format(Date, "dd/mm/yyyy")
CorpsMail = CorpsMail & vbCrLf & vbCrLf & vbCrLf
CorpsMail = CorpsMail & "Le réceptionnaire"

AdresseMail = ""
AdresseMail = AdresseMail & "; "
AdresseMail = AdresseMail & "; "

Logiciel = "C:Program FilesOutlook Expressmsimn.exe"
OptionLancement1 = "/mailurl:mailto:"
OptionLancement2 = "?Subject="
OptionLancement3 = "&Body="

ChaineLancement = Logiciel
ChaineLancement = ChaineLancement & " "
ChaineLancement = ChaineLancement & OptionLancement1
ChaineLancement = ChaineLancement & AdresseMail
ChaineLancement = ChaineLancement & OptionLancement2
ChaineLancement = ChaineLancement & SujetMail
ChaineLancement = ChaineLancement & OptionLancement3
ChaineLancement = ChaineLancement & CorpsMail

Shell (ChaineLancement), 3

Si quelqu'un a une p'tite idée.........
Dany















Avatar
Daniel AUBRY
Ok, merci beaucoup, ça marche au poil !!!

dany

"David" a écrit dans le message de news:

Encore moi,

Oui, pour CCi il faut utiliser BCC :

& "?BCC=" & cc

Voila, voila.

a+
Jean-Pol DAVID



"David" a écrit dans le message de news:
%
Re,

Sur un site en anglais j'ai trouver ceci pour CC :

Dim cc As String
cc = " "
'''mailto:" & strTo & "?Cc=" & strCc
AdresseMail = "" & "?CC=" & cc

Chez moi cela met bien al 2eme adresse en CC.

Tu dois pouvoir y arriver pour CCi.

Voici l'adresse du site :
http://visualbasic.ittoolbox.com/groups/technical-functional/vb-access-l/problem-in-sendkeys-275237

a+
Jean-Pol DAVID



"Daniel AUBRY" a écrit dans le message de news:
45d89b1f$0$3860$
Merci, cela va me servir.
Par contre je ne saisi toujours pas comment faire pour mettre
tous les destinataires en copie cachée.

Merci, bonne soirée.
Dany

"David" a écrit dans le message de news:

Bonjour Daniel,

Voici le code pour que la validation
soit automatique :

On Error Resume Next
Do
Err.Clear
Call AppActivate(Sujet, False)
DoEvents
Loop Until Err.Number = 0
Call SendKeys("%(s)", True)

a+
Jean-Pol DAVID


"Daniel AUBRY" a écrit dans le message de news:
45d84697$0$19816$
Bonjour à tous,

je ne suis pas arrivé à envoyer un mail avec MAPI
(voir mon post "Envoi de mail avec MAPI") je tente
ma chance avec Outlook Express.
Mon code fonctionne :
1) cela impose Outlook sur la machine mais ce n'est pas un problème
2) Outlook s'ouvre et il faut valider l'envoi du message
3) je n'ai pas trouvé comment mettre tous les destinataires en ccc

Mon code :

SujetMail = "Confirmation d'inscription au Triathlon de xxxxx 2007."

CorpsMail = "Votre inscription nous est bien parvenue et"
CorpsMail = CorpsMail & vbCrLf
CorpsMail = CorpsMail & "a été saisie ce jour "
CorpsMail = CorpsMail & Format(Date, "dd/mm/yyyy")
CorpsMail = CorpsMail & vbCrLf & vbCrLf & vbCrLf
CorpsMail = CorpsMail & "Le réceptionnaire"

AdresseMail = ""
AdresseMail = AdresseMail & "; "
AdresseMail = AdresseMail & "; "

Logiciel = "C:Program FilesOutlook Expressmsimn.exe"
OptionLancement1 = "/mailurl:mailto:"
OptionLancement2 = "?Subject="
OptionLancement3 = "&Body="

ChaineLancement = Logiciel
ChaineLancement = ChaineLancement & " "
ChaineLancement = ChaineLancement & OptionLancement1
ChaineLancement = ChaineLancement & AdresseMail
ChaineLancement = ChaineLancement & OptionLancement2
ChaineLancement = ChaineLancement & SujetMail
ChaineLancement = ChaineLancement & OptionLancement3
ChaineLancement = ChaineLancement & CorpsMail

Shell (ChaineLancement), 3

Si quelqu'un a une p'tite idée.........
Dany