Pour envoyer les courriers du dossiers Brouillons on utilise cette macro VBA
Sub EnvoieTousBrouillons() Dim MonOutlook As New Outlook.Application Dim LeMail As Outlook.MailItem Dim LesMails As Object
Set LesMails = MonOutlook.ActiveExplorer.Selection
For Each LeMail In LesMails LeMail.Send Next LeMail
Set LesMails = Nothing End Sub
Il nous pose a chaque fois la quesiton, comment faire pour ne me pose pas cette foutue question ?
Merci d'avance.
Soit utiliser clickyes sur la faq ou changer le code http://www.3stone.be/access/articles.php?lng=fr&pg
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 les sites références: Excel :http://www.excelabo.net http://xcell05.free.fr/ http://dj.joss.free.fr/ http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/ Word : http://faqword.free.fr/ Outlook : http://faq.outlook.free.fr/ les archives : http://groups.google.com/group/microsoft.public.fr.outlook OE6 : http://www.faqoe.com/ Sql : http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*GG <news@nospam.assysm.com> que je salut a écrit *:
Bonjour,
Pour envoyer les courriers du dossiers Brouillons on
utilise cette macro VBA
Sub EnvoieTousBrouillons()
Dim MonOutlook As New Outlook.Application
Dim LeMail As Outlook.MailItem
Dim LesMails As Object
Set LesMails = MonOutlook.ActiveExplorer.Selection
For Each LeMail In LesMails
LeMail.Send
Next LeMail
Set LesMails = Nothing
End Sub
Il nous pose a chaque fois la quesiton, comment faire
pour ne me pose pas cette foutue question ?
Merci d'avance.
Soit utiliser clickyes sur la faq ou changer le code
http://www.3stone.be/access/articles.php?lng=fr&pg
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Pour envoyer les courriers du dossiers Brouillons on utilise cette macro VBA
Sub EnvoieTousBrouillons() Dim MonOutlook As New Outlook.Application Dim LeMail As Outlook.MailItem Dim LesMails As Object
Set LesMails = MonOutlook.ActiveExplorer.Selection
For Each LeMail In LesMails LeMail.Send Next LeMail
Set LesMails = Nothing End Sub
Il nous pose a chaque fois la quesiton, comment faire pour ne me pose pas cette foutue question ?
Merci d'avance.
Soit utiliser clickyes sur la faq ou changer le code http://www.3stone.be/access/articles.php?lng=fr&pg
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 les sites références: Excel :http://www.excelabo.net http://xcell05.free.fr/ http://dj.joss.free.fr/ http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/ Word : http://faqword.free.fr/ Outlook : http://faq.outlook.free.fr/ les archives : http://groups.google.com/group/microsoft.public.fr.outlook OE6 : http://www.faqoe.com/ Sql : http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-=lolol=-
Bonjour Oliv',
Pour envoyer les courriers du dossiers Brouillons on utilise cette macro VBA
Sub EnvoieTousBrouillons() Dim MonOutlook As New Outlook.Application Dim LeMail As Outlook.MailItem Dim LesMails As Object
Set LesMails = MonOutlook.ActiveExplorer.Selection
For Each LeMail In LesMails LeMail.Send Next LeMail
Set LesMails = Nothing End Sub
Il nous pose a chaque fois la quesiton, comment faire pour ne me pose pas cette foutue question ?
Merci d'avance.
Soit utiliser clickyes sur la faq ou changer le code http://www.3stone.be/access/articles.php?lng=fr&pg
Le clicyes, niveau sécurité, est très moyen Intéressé par le truc, je n'arrive pas à déclarer les objets comme il faut même en m'inspirant du lien que tu donnes. Peux tu nous aider ?
par avance merci @+lolo
Bonjour Oliv',
Pour envoyer les courriers du dossiers Brouillons on
utilise cette macro VBA
Sub EnvoieTousBrouillons()
Dim MonOutlook As New Outlook.Application
Dim LeMail As Outlook.MailItem
Dim LesMails As Object
Set LesMails = MonOutlook.ActiveExplorer.Selection
For Each LeMail In LesMails
LeMail.Send
Next LeMail
Set LesMails = Nothing
End Sub
Il nous pose a chaque fois la quesiton, comment faire
pour ne me pose pas cette foutue question ?
Merci d'avance.
Soit utiliser clickyes sur la faq ou changer le code
http://www.3stone.be/access/articles.php?lng=fr&pg
Le clicyes, niveau sécurité, est très moyen
Intéressé par le truc, je n'arrive pas à déclarer les objets comme il faut
même en m'inspirant du lien que tu donnes. Peux tu nous aider ?
Pour envoyer les courriers du dossiers Brouillons on utilise cette macro VBA
Sub EnvoieTousBrouillons() Dim MonOutlook As New Outlook.Application Dim LeMail As Outlook.MailItem Dim LesMails As Object
Set LesMails = MonOutlook.ActiveExplorer.Selection
For Each LeMail In LesMails LeMail.Send Next LeMail
Set LesMails = Nothing End Sub
Il nous pose a chaque fois la quesiton, comment faire pour ne me pose pas cette foutue question ?
Merci d'avance.
Soit utiliser clickyes sur la faq ou changer le code http://www.3stone.be/access/articles.php?lng=fr&pg
Le clicyes, niveau sécurité, est très moyen Intéressé par le truc, je n'arrive pas à déclarer les objets comme il faut même en m'inspirant du lien que tu donnes. Peux tu nous aider ?
par avance merci @+lolo
Oliv'
*-=lolol=- que je salut a écrit *:
Bonjour Oliv',
Le clicyes, niveau sécurité, est très moyen Intéressé par le truc, je n'arrive pas à déclarer les objets comme il faut même en m'inspirant du lien que tu donnes. Peux tu nous aider ?
*-=lolol=- <polytek@SANSPUBfree.fr> que je salut a écrit *:
Bonjour Oliv',
Le clicyes, niveau sécurité, est très moyen
Intéressé par le truc, je n'arrive pas à déclarer les objets comme il
faut même en m'inspirant du lien que tu donnes. Peux tu nous aider ?
Le clicyes, niveau sécurité, est très moyen Intéressé par le truc, je n'arrive pas à déclarer les objets comme il faut même en m'inspirant du lien que tu donnes. Peux tu nous aider ?
Le code c'est celui que j'ai envoyé. Un process envoie dans la boite de l'utilisateur des mails dans le dossiers Brouillons et ensuite avec visualisation de l'ensemble pour une derniere vérification et ensuite a l'aide de cette macro VBA les mails sélectionnés sont envoyés. Mais cette macro nous affiche une boite nous indiquant que tarata un visrus et il faut attendre quelques secondes ch... ce truc voila on voudrait savoir a partir du code que j'ai donnée comme supprimer cette foutue boite nous indiquant le taratata sur la sécurité ? -- Cordialement. GG. Le forum de SBS http://sbsfr.free.fr/
Bonjour,
sinon explique ton cas et envoi ton code.
Le code c'est celui que j'ai envoyé.
Un process envoie dans la boite de l'utilisateur
des mails dans le dossiers Brouillons et ensuite
avec visualisation de l'ensemble pour une derniere
vérification et ensuite a l'aide de cette macro VBA
les mails sélectionnés sont envoyés.
Mais cette macro nous affiche une boite nous indiquant
que tarata un visrus et il faut attendre quelques secondes
ch... ce truc voila on voudrait savoir a partir du code que
j'ai donnée comme supprimer cette foutue boite nous
indiquant le taratata sur la sécurité ?
--
Cordialement.
GG.
Le forum de SBS
http://sbsfr.free.fr/
Le code c'est celui que j'ai envoyé. Un process envoie dans la boite de l'utilisateur des mails dans le dossiers Brouillons et ensuite avec visualisation de l'ensemble pour une derniere vérification et ensuite a l'aide de cette macro VBA les mails sélectionnés sont envoyés. Mais cette macro nous affiche une boite nous indiquant que tarata un visrus et il faut attendre quelques secondes ch... ce truc voila on voudrait savoir a partir du code que j'ai donnée comme supprimer cette foutue boite nous indiquant le taratata sur la sécurité ? -- Cordialement. GG. Le forum de SBS http://sbsfr.free.fr/
-=lolol=-
Bonjour Oliv',
Le clicyes, niveau sécurité, est très moyen Intéressé par le truc, je n'arrive pas à déclarer les objets comme il faut même en m'inspirant du lien que tu donnes. Peux tu nous aider ?
Si je comprends bien, sur le lien que tu donnes, tu utilises CDO et vu que dans le cas de GG les mails sont déjà dans les brouillons il faut passer par automation, me trompe-je ?
-- Cordialement @+lolo
Bonjour Oliv',
Le clicyes, niveau sécurité, est très moyen
Intéressé par le truc, je n'arrive pas à déclarer les objets comme il
faut même en m'inspirant du lien que tu donnes. Peux tu nous aider ?
Si je comprends bien, sur le lien que tu donnes, tu utilises CDO et vu que
dans le cas de GG les mails sont déjà dans les brouillons il faut passer par
automation, me trompe-je ?
Le clicyes, niveau sécurité, est très moyen Intéressé par le truc, je n'arrive pas à déclarer les objets comme il faut même en m'inspirant du lien que tu donnes. Peux tu nous aider ?
Si je comprends bien, sur le lien que tu donnes, tu utilises CDO et vu que dans le cas de GG les mails sont déjà dans les brouillons il faut passer par automation, me trompe-je ?
-- Cordialement @+lolo
Geo
Bonjour,
Pour envoyer les courriers du dossiers Brouillons on utilise cette macro VBA
Sub EnvoieTousBrouillons() Dim MonOutlook As New Outlook.Application Dim LeMail As Outlook.MailItem Dim LesMails As Object
Il me semble qu'il faut ajouter : Set MonOutlook = Outlook.Application
Set LesMails = MonOutlook.ActiveExplorer.Selection
-- A+
Bonjour,
Pour envoyer les courriers du dossiers Brouillons on
utilise cette macro VBA
Sub EnvoieTousBrouillons()
Dim MonOutlook As New Outlook.Application
Dim LeMail As Outlook.MailItem
Dim LesMails As Object
Il me semble qu'il faut ajouter :
Set MonOutlook = Outlook.Application
Set LesMails = MonOutlook.ActiveExplorer.Selection
Pour envoyer les courriers du dossiers Brouillons on utilise cette macro VBA
Sub EnvoieTousBrouillons() Dim MonOutlook As New Outlook.Application Dim LeMail As Outlook.MailItem Dim LesMails As Object
Il me semble qu'il faut ajouter : Set MonOutlook = Outlook.Application
Set LesMails = MonOutlook.ActiveExplorer.Selection
-- A+
-=lolol=-
Bonjour Geo,
Il me semble qu'il faut ajouter : Set MonOutlook = Outlook.Application
Putain, ça m'énerve les gens qu'ont toujours raison ;-)))
Sub EnvoieBrouillonsSelectionnés() Dim MonOutlook As New Outlook.Application Dim LeMail As Outlook.MailItem Dim LesMails As Object
Set MonOutlook = Outlook.Application Set LesMails = MonOutlook.ActiveExplorer.Selection
For Each LeMail In LesMails LeMail.Send Next LeMail
Set MonOutlook = Nothing Set LesMails = Nothing End Sub
GG, je vais essayer de trouver du temps pour parfaire le machin, par exemple vérifier que t'es bien dans le dossier brouillon quand tu lances le machin et que des mails sont bien sélectionnés
Super merci Geo :-) @+lolo
Bonjour Geo,
Il me semble qu'il faut ajouter :
Set MonOutlook = Outlook.Application
Putain, ça m'énerve les gens qu'ont toujours raison ;-)))
Sub EnvoieBrouillonsSelectionnés()
Dim MonOutlook As New Outlook.Application
Dim LeMail As Outlook.MailItem
Dim LesMails As Object
Set MonOutlook = Outlook.Application
Set LesMails = MonOutlook.ActiveExplorer.Selection
For Each LeMail In LesMails
LeMail.Send
Next LeMail
Set MonOutlook = Nothing
Set LesMails = Nothing
End Sub
GG, je vais essayer de trouver du temps pour parfaire le machin, par exemple
vérifier que t'es bien dans le dossier brouillon quand tu lances le machin
et que des mails sont bien sélectionnés
Il me semble qu'il faut ajouter : Set MonOutlook = Outlook.Application
Putain, ça m'énerve les gens qu'ont toujours raison ;-)))
Sub EnvoieBrouillonsSelectionnés() Dim MonOutlook As New Outlook.Application Dim LeMail As Outlook.MailItem Dim LesMails As Object
Set MonOutlook = Outlook.Application Set LesMails = MonOutlook.ActiveExplorer.Selection
For Each LeMail In LesMails LeMail.Send Next LeMail
Set MonOutlook = Nothing Set LesMails = Nothing End Sub
GG, je vais essayer de trouver du temps pour parfaire le machin, par exemple vérifier que t'es bien dans le dossier brouillon quand tu lances le machin et que des mails sont bien sélectionnés
Super merci Geo :-) @+lolo
Oliv'
*-=lolol=- que je salut a écrit *:
Bonjour Oliv',
Le clicyes, niveau sécurité, est très moyen Intéressé par le truc, je n'arrive pas à déclarer les objets comme il faut même en m'inspirant du lien que tu donnes. Peux tu nous aider ?
Si je comprends bien, sur le lien que tu donnes, tu utilises CDO et vu que dans le cas de GG les mails sont déjà dans les brouillons il faut passer par automation, me trompe-je ?
Essayez ceci
Sub EnvoieTousBrouillons() Dim MonOutlook As New Outlook.Application Dim Mail As Object Dim LeMail As Outlook.MailItem Dim LesMails As Object
Set LesMails = MonOutlook.ActiveExplorer.Selection For Each LeMail In LesMails RunAScriptRuleRoutine (LeMail.EntryID) Next LeMail Set LesMails = Nothing End Sub
Sub RunAScriptRuleRoutine(MyMail) Dim strID As String Dim olNS As Outlook.NameSpace Dim oMail As Outlook.MailItem
strID = MyMail Set olNS = Application.GetNamespace("MAPI") Set oMail = olNS.GetItemFromID(strID) ' do stuff with oMail, e.g. 'MsgBox oMail.Body oMail.Send
' Set olMail = Nothing Set olNS = Nothing End Sub
Est ce que ca marche sans security prompt chez vous ?
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*-=lolol=- <polytek@SANSPUBfree.fr> que je salut a écrit *:
Bonjour Oliv',
Le clicyes, niveau sécurité, est très moyen
Intéressé par le truc, je n'arrive pas à déclarer les objets comme
il faut même en m'inspirant du lien que tu donnes. Peux tu nous
aider ?
Si je comprends bien, sur le lien que tu donnes, tu utilises CDO et
vu que dans le cas de GG les mails sont déjà dans les brouillons il
faut passer par automation, me trompe-je ?
Essayez ceci
Sub EnvoieTousBrouillons()
Dim MonOutlook As New Outlook.Application
Dim Mail As Object
Dim LeMail As Outlook.MailItem
Dim LesMails As Object
Set LesMails = MonOutlook.ActiveExplorer.Selection
For Each LeMail In LesMails
RunAScriptRuleRoutine (LeMail.EntryID)
Next LeMail
Set LesMails = Nothing
End Sub
Sub RunAScriptRuleRoutine(MyMail)
Dim strID As String
Dim olNS As Outlook.NameSpace
Dim oMail As Outlook.MailItem
strID = MyMail
Set olNS = Application.GetNamespace("MAPI")
Set oMail = olNS.GetItemFromID(strID)
' do stuff with oMail, e.g.
'MsgBox oMail.Body
oMail.Send
' Set olMail = Nothing
Set olNS = Nothing
End Sub
Est ce que ca marche sans security prompt chez vous ?
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Le clicyes, niveau sécurité, est très moyen Intéressé par le truc, je n'arrive pas à déclarer les objets comme il faut même en m'inspirant du lien que tu donnes. Peux tu nous aider ?
Si je comprends bien, sur le lien que tu donnes, tu utilises CDO et vu que dans le cas de GG les mails sont déjà dans les brouillons il faut passer par automation, me trompe-je ?
Essayez ceci
Sub EnvoieTousBrouillons() Dim MonOutlook As New Outlook.Application Dim Mail As Object Dim LeMail As Outlook.MailItem Dim LesMails As Object
Set LesMails = MonOutlook.ActiveExplorer.Selection For Each LeMail In LesMails RunAScriptRuleRoutine (LeMail.EntryID) Next LeMail Set LesMails = Nothing End Sub
Sub RunAScriptRuleRoutine(MyMail) Dim strID As String Dim olNS As Outlook.NameSpace Dim oMail As Outlook.MailItem
strID = MyMail Set olNS = Application.GetNamespace("MAPI") Set oMail = olNS.GetItemFromID(strID) ' do stuff with oMail, e.g. 'MsgBox oMail.Body oMail.Send
' Set olMail = Nothing Set olNS = Nothing End Sub
Est ce que ca marche sans security prompt chez vous ?
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-=lolol=-
Bonjour Oliv',
Super merci pour ton aide, ça passe sans message de sécurité :-)
Ce qui m'ennuie le plus, c'est de ne pas avoir trouvé tout seul !!! suivant le coup de pouce façon Geo, j'étais pourtant pas loin :-( pas loin loin mais pas bon quand même, grrrr
@+lolo
*-=lolol=- que je salut a écrit *:
Bonjour Oliv',
Le clicyes, niveau sécurité, est très moyen Intéressé par le truc, je n'arrive pas à déclarer les objets comme il faut même en m'inspirant du lien que tu donnes. Peux tu nous aider ?
Si je comprends bien, sur le lien que tu donnes, tu utilises CDO et vu que dans le cas de GG les mails sont déjà dans les brouillons il faut passer par automation, me trompe-je ?
Essayez ceci
Sub EnvoieTousBrouillons() Dim MonOutlook As New Outlook.Application Dim Mail As Object Dim LeMail As Outlook.MailItem Dim LesMails As Object
Set LesMails = MonOutlook.ActiveExplorer.Selection For Each LeMail In LesMails RunAScriptRuleRoutine (LeMail.EntryID) Next LeMail Set LesMails = Nothing End Sub
Sub RunAScriptRuleRoutine(MyMail) Dim strID As String Dim olNS As Outlook.NameSpace Dim oMail As Outlook.MailItem
strID = MyMail Set olNS = Application.GetNamespace("MAPI") Set oMail = olNS.GetItemFromID(strID) ' do stuff with oMail, e.g. 'MsgBox oMail.Body oMail.Send
' Set olMail = Nothing Set olNS = Nothing End Sub
Est ce que ca marche sans security prompt chez vous ?
--
Bonjour Oliv',
Super merci pour ton aide, ça passe sans message de sécurité :-)
Ce qui m'ennuie le plus, c'est de ne pas avoir trouvé tout seul !!! suivant
le coup de pouce façon Geo, j'étais pourtant pas loin :-( pas loin loin mais
pas bon quand même, grrrr
@+lolo
*-=lolol=- <polytek@SANSPUBfree.fr> que je salut a écrit *:
Bonjour Oliv',
Le clicyes, niveau sécurité, est très moyen
Intéressé par le truc, je n'arrive pas à déclarer les objets comme
il faut même en m'inspirant du lien que tu donnes. Peux tu nous
aider ?
Si je comprends bien, sur le lien que tu donnes, tu utilises CDO et
vu que dans le cas de GG les mails sont déjà dans les brouillons il
faut passer par automation, me trompe-je ?
Essayez ceci
Sub EnvoieTousBrouillons()
Dim MonOutlook As New Outlook.Application
Dim Mail As Object
Dim LeMail As Outlook.MailItem
Dim LesMails As Object
Set LesMails = MonOutlook.ActiveExplorer.Selection
For Each LeMail In LesMails
RunAScriptRuleRoutine (LeMail.EntryID)
Next LeMail
Set LesMails = Nothing
End Sub
Sub RunAScriptRuleRoutine(MyMail)
Dim strID As String
Dim olNS As Outlook.NameSpace
Dim oMail As Outlook.MailItem
strID = MyMail
Set olNS = Application.GetNamespace("MAPI")
Set oMail = olNS.GetItemFromID(strID)
' do stuff with oMail, e.g.
'MsgBox oMail.Body
oMail.Send
' Set olMail = Nothing
Set olNS = Nothing
End Sub
Est ce que ca marche sans security prompt chez vous ?
Super merci pour ton aide, ça passe sans message de sécurité :-)
Ce qui m'ennuie le plus, c'est de ne pas avoir trouvé tout seul !!! suivant le coup de pouce façon Geo, j'étais pourtant pas loin :-( pas loin loin mais pas bon quand même, grrrr
@+lolo
*-=lolol=- que je salut a écrit *:
Bonjour Oliv',
Le clicyes, niveau sécurité, est très moyen Intéressé par le truc, je n'arrive pas à déclarer les objets comme il faut même en m'inspirant du lien que tu donnes. Peux tu nous aider ?
Si je comprends bien, sur le lien que tu donnes, tu utilises CDO et vu que dans le cas de GG les mails sont déjà dans les brouillons il faut passer par automation, me trompe-je ?
Essayez ceci
Sub EnvoieTousBrouillons() Dim MonOutlook As New Outlook.Application Dim Mail As Object Dim LeMail As Outlook.MailItem Dim LesMails As Object
Set LesMails = MonOutlook.ActiveExplorer.Selection For Each LeMail In LesMails RunAScriptRuleRoutine (LeMail.EntryID) Next LeMail Set LesMails = Nothing End Sub
Sub RunAScriptRuleRoutine(MyMail) Dim strID As String Dim olNS As Outlook.NameSpace Dim oMail As Outlook.MailItem
strID = MyMail Set olNS = Application.GetNamespace("MAPI") Set oMail = olNS.GetItemFromID(strID) ' do stuff with oMail, e.g. 'MsgBox oMail.Body oMail.Send
' Set olMail = Nothing Set olNS = Nothing End Sub
Est ce que ca marche sans security prompt chez vous ?
--
GG
Bonjour,
Si je comprends bien, sur le lien que tu donnes, tu utilises CDO et vu que dans le cas de GG les mails sont déjà dans les brouillons il faut passer par automation, me trompe-je ?
Oui
Essayez ceci
Oui c'est bon. On va pouvoir spammer en toute sérénité les MVP de préférence, mais avec un controle juste avant l'envoi, "if no MVP then nospam". Merci a tous. :)
-- Cordialement. GG. Le forum de SBS http://sbsfr.free.fr/
Bonjour,
Si je comprends bien, sur le lien que tu donnes, tu utilises CDO et
vu que dans le cas de GG les mails sont déjà dans les brouillons il
faut passer par automation, me trompe-je ?
Oui
Essayez ceci
Oui c'est bon. On va pouvoir spammer en toute sérénité les MVP
de préférence, mais avec un controle juste avant l'envoi, "if no MVP
then nospam". Merci a tous. :)
--
Cordialement.
GG.
Le forum de SBS
http://sbsfr.free.fr/
Si je comprends bien, sur le lien que tu donnes, tu utilises CDO et vu que dans le cas de GG les mails sont déjà dans les brouillons il faut passer par automation, me trompe-je ?
Oui
Essayez ceci
Oui c'est bon. On va pouvoir spammer en toute sérénité les MVP de préférence, mais avec un controle juste avant l'envoi, "if no MVP then nospam". Merci a tous. :)
-- Cordialement. GG. Le forum de SBS http://sbsfr.free.fr/
