Salut Souriane,
Je pense que le plus sage est de faire le publipostage en utilisant la
bibliothèque Outlook.
Une piste :
Sub Mailit()
Dim aO As Outlook.Application
Dim myMsg As Outlook.MailItem
set aO = Outlook.application
Set myMsg = aO.CreateItem(olMailItem)
myMsg.ReadReceiptRequested = True
End Sub
--
Heureux-oli
Salut Souriane,
Je pense que le plus sage est de faire le publipostage en utilisant la
bibliothèque Outlook.
Une piste :
Sub Mailit()
Dim aO As Outlook.Application
Dim myMsg As Outlook.MailItem
set aO = Outlook.application
Set myMsg = aO.CreateItem(olMailItem)
myMsg.ReadReceiptRequested = True
End Sub
--
Heureux-oli
Salut Souriane,
Je pense que le plus sage est de faire le publipostage en utilisant la
bibliothèque Outlook.
Une piste :
Sub Mailit()
Dim aO As Outlook.Application
Dim myMsg As Outlook.MailItem
set aO = Outlook.application
Set myMsg = aO.CreateItem(olMailItem)
myMsg.ReadReceiptRequested = True
End Sub
--
Heureux-oli
Salut Souriane,
Je pense que le plus sage est de faire le publipostage en utilisant la
bibliothèque Outlook.
Une piste :
Sub Mailit()
Dim aO As Outlook.Application
Dim myMsg As Outlook.MailItem
set aO = Outlook.application
Set myMsg = aO.CreateItem(olMailItem)
myMsg.ReadReceiptRequested = True
End Sub
--
Heureux-oli
Salut Souriane,
Je pense que le plus sage est de faire le publipostage en utilisant la
bibliothèque Outlook.
Une piste :
Sub Mailit()
Dim aO As Outlook.Application
Dim myMsg As Outlook.MailItem
set aO = Outlook.application
Set myMsg = aO.CreateItem(olMailItem)
myMsg.ReadReceiptRequested = True
End Sub
--
Heureux-oli
Salut Souriane,
Je pense que le plus sage est de faire le publipostage en utilisant la
bibliothèque Outlook.
Une piste :
Sub Mailit()
Dim aO As Outlook.Application
Dim myMsg As Outlook.MailItem
set aO = Outlook.application
Set myMsg = aO.CreateItem(olMailItem)
myMsg.ReadReceiptRequested = True
End Sub
--
Heureux-oli
[ Cette réponse est faite sur le forum public Word :
news://msnews.microsoft.com/microsoft.public.fr.word ]
Est-ce que la biblio d’Outlook est le carnet d’adresses? Car si oui,
ce n’est pas possible étant donné que ma base où je vais puiser les
courriels est montée en Access.
[ Cette réponse est faite sur le forum public Word :
news://msnews.microsoft.com/microsoft.public.fr.word ]
Est-ce que la biblio d’Outlook est le carnet d’adresses? Car si oui,
ce n’est pas possible étant donné que ma base où je vais puiser les
courriels est montée en Access.
[ Cette réponse est faite sur le forum public Word :
news://msnews.microsoft.com/microsoft.public.fr.word ]
Est-ce que la biblio d’Outlook est le carnet d’adresses? Car si oui,
ce n’est pas possible étant donné que ma base où je vais puiser les
courriels est montée en Access.
Salut,
Non, le carnet d'adresse c'est autre chose.
************************************
Dim oApp As Outlook.Application
Set oApp = Outlook.Application
************************************
C'est l'utilisation de Outlook, c'est en quelque sorte une bibliothèque et
les objet méthodes et propriétés sont alors utilisables.
L'accusé de réception est propre à Outlook et je ne pense pas que tu
puisses utiliser cette propriété sans passer par Outlook.
--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/
http://marie-lebeau.heaj.be/
----------------------------------------------------------------------------------
"Souriane" a écrit dans le message de news:
Est-ce que la biblio d'Outlook est le carnet d'adresses? Car si oui,
ce n'est pas possible étant donné que ma base où je vais puiser les
courriels est montée en Access.
Souriane
On 28 août, 15:50, "heureux-oli" wrote:Salut Souriane,
Je pense que le plus sage est de faire le publipostage en utilisant la
bibliothèque Outlook.
Une piste :
Sub Mailit()
Dim aO As Outlook.Application
Dim myMsg As Outlook.MailItem
set aO = Outlook.application
Set myMsg = aO.CreateItem(olMailItem)
myMsg.ReadReceiptRequested = True
End Sub
--
Heureux-oli
Salut,
Non, le carnet d'adresse c'est autre chose.
************************************
Dim oApp As Outlook.Application
Set oApp = Outlook.Application
************************************
C'est l'utilisation de Outlook, c'est en quelque sorte une bibliothèque et
les objet méthodes et propriétés sont alors utilisables.
L'accusé de réception est propre à Outlook et je ne pense pas que tu
puisses utiliser cette propriété sans passer par Outlook.
--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/
http://marie-lebeau.heaj.be/
----------------------------------------------------------------------------------
"Souriane" <jsouriane@videotron.ca> a écrit dans le message de news:
84ffa9a6-22d5-43f0-b32b-9edd9222b086@r36g2000vbn.googlegroups.com...
Est-ce que la biblio d'Outlook est le carnet d'adresses? Car si oui,
ce n'est pas possible étant donné que ma base où je vais puiser les
courriels est montée en Access.
Souriane
On 28 août, 15:50, "heureux-oli" <yyy.heureux-...@hotmail.yyy> wrote:
Salut Souriane,
Je pense que le plus sage est de faire le publipostage en utilisant la
bibliothèque Outlook.
Une piste :
Sub Mailit()
Dim aO As Outlook.Application
Dim myMsg As Outlook.MailItem
set aO = Outlook.application
Set myMsg = aO.CreateItem(olMailItem)
myMsg.ReadReceiptRequested = True
End Sub
--
Heureux-oli
Salut,
Non, le carnet d'adresse c'est autre chose.
************************************
Dim oApp As Outlook.Application
Set oApp = Outlook.Application
************************************
C'est l'utilisation de Outlook, c'est en quelque sorte une bibliothèque et
les objet méthodes et propriétés sont alors utilisables.
L'accusé de réception est propre à Outlook et je ne pense pas que tu
puisses utiliser cette propriété sans passer par Outlook.
--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/
http://marie-lebeau.heaj.be/
----------------------------------------------------------------------------------
"Souriane" a écrit dans le message de news:
Est-ce que la biblio d'Outlook est le carnet d'adresses? Car si oui,
ce n'est pas possible étant donné que ma base où je vais puiser les
courriels est montée en Access.
Souriane
On 28 août, 15:50, "heureux-oli" wrote:Salut Souriane,
Je pense que le plus sage est de faire le publipostage en utilisant la
bibliothèque Outlook.
Une piste :
Sub Mailit()
Dim aO As Outlook.Application
Dim myMsg As Outlook.MailItem
set aO = Outlook.application
Set myMsg = aO.CreateItem(olMailItem)
myMsg.ReadReceiptRequested = True
End Sub
--
Heureux-oli
Bonjour!
Je suis sur un début de voie avec ce que vous m'avez donné j'ai cherc hé à
gauche et à droite et je suis rendue à ceci :
Sub Mailit()
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.To = ""
MonMessage.Subject = "Titre"
MonMessage.body = "Lettre du courriel"
MonMessage.ReadReceiptRequested = True
MonMessage.send
Set MonOutlook = Nothing
End Sub
Ça fonctionne bien, sauf que cela ne fait pas encore ce que je souhaite :
le "To" doit aller chercher les courriels dans une Requête d'Access.
Comme dois-je faire ajouter le tout au code?
Bonne journée!
Souriane
Longueuil, Qc
"heureux-oli" a écrit dans le message de news:
> Salut,
> Non, le carnet d'adresse c'est autre chose.
> ************************************
> Dim oApp As Outlook.Application
> Set oApp = Outlook.Application
> ************************************
> C'est l'utilisation de Outlook, c'est en quelque sorte une bibliothèq ue et
> les objet méthodes et propriétés sont alors utilisables.
> L'accusé de réception est propre à Outlook et je ne pense pas que tu
> puisses utiliser cette propriété sans passer par Outlook.
> --
> Heureux-oli
> Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
>http://heureuxoli.developpez.com/
>http://word.developpez.com/
>http://marie-lebeau.heaj.be/
> ----------------------------------------------------------------------- -----------
> "Souriane" a écrit dans le message de news:
>
> Est-ce que la biblio d'Outlook est le carnet d'adresses? Car si oui,
> ce n'est pas possible étant donné que ma base où je vais puiser l es
> courriels est montée en Access.
> Souriane
> On 28 août, 15:50, "heureux-oli" wrote:
>> Salut Souriane,
>> Je pense que le plus sage est de faire le publipostage en utilisant la
>> bibliothèque Outlook.
>> Une piste :
>> Sub Mailit()
>> Dim aO As Outlook.Application
>> Dim myMsg As Outlook.MailItem
>> set aO = Outlook.application
>> Set myMsg = aO.CreateItem(olMailItem)
>> myMsg.ReadReceiptRequested = True
>> End Sub
>> --
>> Heureux-oli- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour!
Je suis sur un début de voie avec ce que vous m'avez donné j'ai cherc hé à
gauche et à droite et je suis rendue à ceci :
Sub Mailit()
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.To = "x...@gmail.com"
MonMessage.Subject = "Titre"
MonMessage.body = "Lettre du courriel"
MonMessage.ReadReceiptRequested = True
MonMessage.send
Set MonOutlook = Nothing
End Sub
Ça fonctionne bien, sauf que cela ne fait pas encore ce que je souhaite :
le "To" doit aller chercher les courriels dans une Requête d'Access.
Comme dois-je faire ajouter le tout au code?
Bonne journée!
Souriane
Longueuil, Qc
"heureux-oli" <yyy.heureux-...@hotmail.yyy> a écrit dans le message de news:
uYqc8JnKKHA.1...@TK2MSFTNGP05.phx.gbl...
> Salut,
> Non, le carnet d'adresse c'est autre chose.
> ************************************
> Dim oApp As Outlook.Application
> Set oApp = Outlook.Application
> ************************************
> C'est l'utilisation de Outlook, c'est en quelque sorte une bibliothèq ue et
> les objet méthodes et propriétés sont alors utilisables.
> L'accusé de réception est propre à Outlook et je ne pense pas que tu
> puisses utiliser cette propriété sans passer par Outlook.
> --
> Heureux-oli
> Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
>http://heureuxoli.developpez.com/
>http://word.developpez.com/
>http://marie-lebeau.heaj.be/
> ----------------------------------------------------------------------- -----------
> "Souriane" <jsouri...@videotron.ca> a écrit dans le message de news:
> 84ffa9a6-22d5-43f0-b32b-9edd9222b...@r36g2000vbn.googlegroups.com...
> Est-ce que la biblio d'Outlook est le carnet d'adresses? Car si oui,
> ce n'est pas possible étant donné que ma base où je vais puiser l es
> courriels est montée en Access.
> Souriane
> On 28 août, 15:50, "heureux-oli" <yyy.heureux-...@hotmail.yyy> wrote:
>> Salut Souriane,
>> Je pense que le plus sage est de faire le publipostage en utilisant la
>> bibliothèque Outlook.
>> Une piste :
>> Sub Mailit()
>> Dim aO As Outlook.Application
>> Dim myMsg As Outlook.MailItem
>> set aO = Outlook.application
>> Set myMsg = aO.CreateItem(olMailItem)
>> myMsg.ReadReceiptRequested = True
>> End Sub
>> --
>> Heureux-oli- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour!
Je suis sur un début de voie avec ce que vous m'avez donné j'ai cherc hé à
gauche et à droite et je suis rendue à ceci :
Sub Mailit()
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.To = ""
MonMessage.Subject = "Titre"
MonMessage.body = "Lettre du courriel"
MonMessage.ReadReceiptRequested = True
MonMessage.send
Set MonOutlook = Nothing
End Sub
Ça fonctionne bien, sauf que cela ne fait pas encore ce que je souhaite :
le "To" doit aller chercher les courriels dans une Requête d'Access.
Comme dois-je faire ajouter le tout au code?
Bonne journée!
Souriane
Longueuil, Qc
"heureux-oli" a écrit dans le message de news:
> Salut,
> Non, le carnet d'adresse c'est autre chose.
> ************************************
> Dim oApp As Outlook.Application
> Set oApp = Outlook.Application
> ************************************
> C'est l'utilisation de Outlook, c'est en quelque sorte une bibliothèq ue et
> les objet méthodes et propriétés sont alors utilisables.
> L'accusé de réception est propre à Outlook et je ne pense pas que tu
> puisses utiliser cette propriété sans passer par Outlook.
> --
> Heureux-oli
> Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
>http://heureuxoli.developpez.com/
>http://word.developpez.com/
>http://marie-lebeau.heaj.be/
> ----------------------------------------------------------------------- -----------
> "Souriane" a écrit dans le message de news:
>
> Est-ce que la biblio d'Outlook est le carnet d'adresses? Car si oui,
> ce n'est pas possible étant donné que ma base où je vais puiser l es
> courriels est montée en Access.
> Souriane
> On 28 août, 15:50, "heureux-oli" wrote:
>> Salut Souriane,
>> Je pense que le plus sage est de faire le publipostage en utilisant la
>> bibliothèque Outlook.
>> Une piste :
>> Sub Mailit()
>> Dim aO As Outlook.Application
>> Dim myMsg As Outlook.MailItem
>> set aO = Outlook.application
>> Set myMsg = aO.CreateItem(olMailItem)
>> myMsg.ReadReceiptRequested = True
>> End Sub
>> --
>> Heureux-oli- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Up!
Est-ce que quelqu'un est en mesure de m'aider sur celle-
ci? :-) :-) :-)
Merci!
souriane
On 3 sep, 15:30, "Souriane" wrote:Bonjour!
Je suis sur un début de voie avec ce que vous m'avez donné j'ai cherché à
gauche et à droite et je suis rendue à ceci :
Sub Mailit()
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.To = ""
MonMessage.Subject = "Titre"
MonMessage.body = "Lettre du courriel"
MonMessage.ReadReceiptRequested = True
MonMessage.send
Set MonOutlook = Nothing
End Sub
Ça fonctionne bien, sauf que cela ne fait pas encore ce que je souhaite :
le "To" doit aller chercher les courriels dans une Requête d'Access.
Comme dois-je faire ajouter le tout au code?
Bonne journée!
Souriane
Longueuil, Qc
"heureux-oli" a écrit dans le message de news:Salut,
Non, le carnet d'adresse c'est autre chose.
************************************
Dim oApp As Outlook.Application
Set oApp = Outlook.Application
************************************
C'est l'utilisation de Outlook, c'est en quelque sorte une bibliothèque et
les objet méthodes et propriétés sont alors utilisables.
L'accusé de réception est propre à Outlook et je ne pense pas que tu
puisses utiliser cette propriété sans passer par Outlook.
--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/
http://marie-lebeau.heaj.be/
----------------------------------------------------------------------------------
"Souriane" a écrit dans le message de news:
Est-ce que la biblio d'Outlook est le carnet d'adresses? Car si oui,
ce n'est pas possible étant donné que ma base où je vais puiser les
courriels est montée en Access.
Souriane
On 28 août, 15:50, "heureux-oli" wrote:Salut Souriane,
Je pense que le plus sage est de faire le publipostage en utilisant la
bibliothèque Outlook.
Une piste :
Sub Mailit()
Dim aO As Outlook.Application
Dim myMsg As Outlook.MailItem
set aO = Outlook.application
Set myMsg = aO.CreateItem(olMailItem)
myMsg.ReadReceiptRequested = True
End Sub
--
Heureux-oli- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Up!
Est-ce que quelqu'un est en mesure de m'aider sur celle-
ci? :-) :-) :-)
Merci!
souriane
On 3 sep, 15:30, "Souriane" <souria...@videotron.ca> wrote:
Bonjour!
Je suis sur un début de voie avec ce que vous m'avez donné j'ai cherché à
gauche et à droite et je suis rendue à ceci :
Sub Mailit()
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.To = "x...@gmail.com"
MonMessage.Subject = "Titre"
MonMessage.body = "Lettre du courriel"
MonMessage.ReadReceiptRequested = True
MonMessage.send
Set MonOutlook = Nothing
End Sub
Ça fonctionne bien, sauf que cela ne fait pas encore ce que je souhaite :
le "To" doit aller chercher les courriels dans une Requête d'Access.
Comme dois-je faire ajouter le tout au code?
Bonne journée!
Souriane
Longueuil, Qc
"heureux-oli" <yyy.heureux-...@hotmail.yyy> a écrit dans le message de news:
uYqc8JnKKHA.1...@TK2MSFTNGP05.phx.gbl...
Salut,
Non, le carnet d'adresse c'est autre chose.
************************************
Dim oApp As Outlook.Application
Set oApp = Outlook.Application
************************************
C'est l'utilisation de Outlook, c'est en quelque sorte une bibliothèque et
les objet méthodes et propriétés sont alors utilisables.
L'accusé de réception est propre à Outlook et je ne pense pas que tu
puisses utiliser cette propriété sans passer par Outlook.
--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/
http://marie-lebeau.heaj.be/
----------------------------------------------------------------------------------
"Souriane" <jsouri...@videotron.ca> a écrit dans le message de news:
84ffa9a6-22d5-43f0-b32b-9edd9222b...@r36g2000vbn.googlegroups.com...
Est-ce que la biblio d'Outlook est le carnet d'adresses? Car si oui,
ce n'est pas possible étant donné que ma base où je vais puiser les
courriels est montée en Access.
Souriane
On 28 août, 15:50, "heureux-oli" <yyy.heureux-...@hotmail.yyy> wrote:
Salut Souriane,
Je pense que le plus sage est de faire le publipostage en utilisant la
bibliothèque Outlook.
Une piste :
Sub Mailit()
Dim aO As Outlook.Application
Dim myMsg As Outlook.MailItem
set aO = Outlook.application
Set myMsg = aO.CreateItem(olMailItem)
myMsg.ReadReceiptRequested = True
End Sub
--
Heureux-oli- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Up!
Est-ce que quelqu'un est en mesure de m'aider sur celle-
ci? :-) :-) :-)
Merci!
souriane
On 3 sep, 15:30, "Souriane" wrote:Bonjour!
Je suis sur un début de voie avec ce que vous m'avez donné j'ai cherché à
gauche et à droite et je suis rendue à ceci :
Sub Mailit()
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.To = ""
MonMessage.Subject = "Titre"
MonMessage.body = "Lettre du courriel"
MonMessage.ReadReceiptRequested = True
MonMessage.send
Set MonOutlook = Nothing
End Sub
Ça fonctionne bien, sauf que cela ne fait pas encore ce que je souhaite :
le "To" doit aller chercher les courriels dans une Requête d'Access.
Comme dois-je faire ajouter le tout au code?
Bonne journée!
Souriane
Longueuil, Qc
"heureux-oli" a écrit dans le message de news:Salut,
Non, le carnet d'adresse c'est autre chose.
************************************
Dim oApp As Outlook.Application
Set oApp = Outlook.Application
************************************
C'est l'utilisation de Outlook, c'est en quelque sorte une bibliothèque et
les objet méthodes et propriétés sont alors utilisables.
L'accusé de réception est propre à Outlook et je ne pense pas que tu
puisses utiliser cette propriété sans passer par Outlook.
--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/
http://marie-lebeau.heaj.be/
----------------------------------------------------------------------------------
"Souriane" a écrit dans le message de news:
Est-ce que la biblio d'Outlook est le carnet d'adresses? Car si oui,
ce n'est pas possible étant donné que ma base où je vais puiser les
courriels est montée en Access.
Souriane
On 28 août, 15:50, "heureux-oli" wrote:Salut Souriane,
Je pense que le plus sage est de faire le publipostage en utilisant la
bibliothèque Outlook.
Une piste :
Sub Mailit()
Dim aO As Outlook.Application
Dim myMsg As Outlook.MailItem
set aO = Outlook.application
Set myMsg = aO.CreateItem(olMailItem)
myMsg.ReadReceiptRequested = True
End Sub
--
Heureux-oli- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour!
Je suis sur un début de voie avec ce que vous m'avez donné j'ai che rché à
gauche et à droite et je suis rendue à ceci :
Sub Mailit()
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.To = ""
MonMessage.Subject = "Titre"
MonMessage.body = "Lettre du courriel"
MonMessage.ReadReceiptRequested = True
MonMessage.send
Set MonOutlook = Nothing
End Sub
Ça fonctionne bien, sauf que cela ne fait pas encore ce que je souhai te :
le "To" doit aller chercher les courriels dans une Requête d'Access.
Comme dois-je faire ajouter le tout au code?
Bonne journée!
Souriane
Longueuil, Qc
"heureux-oli" a écrit dans le message d e news:Salut,
Non, le carnet d'adresse c'est autre chose.
************************************
Dim oApp As Outlook.Application
Set oApp = Outlook.Application
************************************
C'est l'utilisation de Outlook, c'est en quelque sorte une bibliothè que et
les objet méthodes et propriétés sont alors utilisables.
L'accusé de réception est propre à Outlook et je ne pense pas qu e tu
puisses utiliser cette propriété sans passer par Outlook.
--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/
http://marie-lebeau.heaj.be/
---------------------------------------------------------------------- ------------
"Souriane" a écrit dans le message de news:
Est-ce que la biblio d'Outlook est le carnet d'adresses? Car si oui,
ce n'est pas possible étant donné que ma base où je vais puiser les
courriels est montée en Access.
Souriane
On 28 août, 15:50, "heureux-oli" wrote :Salut Souriane,
Je pense que le plus sage est de faire le publipostage en utilisant l a
bibliothèque Outlook.
Une piste :
Sub Mailit()
Dim aO As Outlook.Application
Dim myMsg As Outlook.MailItem
set aO = Outlook.application
Set myMsg = aO.CreateItem(olMailItem)
myMsg.ReadReceiptRequested = True
End Sub
--
Heureux-oli
Bonjour!
Je suis sur un début de voie avec ce que vous m'avez donné j'ai che rché à
gauche et à droite et je suis rendue à ceci :
Sub Mailit()
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.To = "xxx@gmail.com"
MonMessage.Subject = "Titre"
MonMessage.body = "Lettre du courriel"
MonMessage.ReadReceiptRequested = True
MonMessage.send
Set MonOutlook = Nothing
End Sub
Ça fonctionne bien, sauf que cela ne fait pas encore ce que je souhai te :
le "To" doit aller chercher les courriels dans une Requête d'Access.
Comme dois-je faire ajouter le tout au code?
Bonne journée!
Souriane
Longueuil, Qc
"heureux-oli" <yyy.heureux-oli@hotmail.yyy> a écrit dans le message d e news:
uYqc8JnKKHA.1336@TK2MSFTNGP05.phx.gbl...
Salut,
Non, le carnet d'adresse c'est autre chose.
************************************
Dim oApp As Outlook.Application
Set oApp = Outlook.Application
************************************
C'est l'utilisation de Outlook, c'est en quelque sorte une bibliothè que et
les objet méthodes et propriétés sont alors utilisables.
L'accusé de réception est propre à Outlook et je ne pense pas qu e tu
puisses utiliser cette propriété sans passer par Outlook.
--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/
http://marie-lebeau.heaj.be/
---------------------------------------------------------------------- ------------
"Souriane" <jsouriane@videotron.ca> a écrit dans le message de news:
84ffa9a6-22d5-43f0-b32b-9edd9222b086@r36g2000vbn.googlegroups.com...
Est-ce que la biblio d'Outlook est le carnet d'adresses? Car si oui,
ce n'est pas possible étant donné que ma base où je vais puiser les
courriels est montée en Access.
Souriane
On 28 août, 15:50, "heureux-oli" <yyy.heureux-...@hotmail.yyy> wrote :
Salut Souriane,
Je pense que le plus sage est de faire le publipostage en utilisant l a
bibliothèque Outlook.
Une piste :
Sub Mailit()
Dim aO As Outlook.Application
Dim myMsg As Outlook.MailItem
set aO = Outlook.application
Set myMsg = aO.CreateItem(olMailItem)
myMsg.ReadReceiptRequested = True
End Sub
--
Heureux-oli
Bonjour!
Je suis sur un début de voie avec ce que vous m'avez donné j'ai che rché à
gauche et à droite et je suis rendue à ceci :
Sub Mailit()
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.To = ""
MonMessage.Subject = "Titre"
MonMessage.body = "Lettre du courriel"
MonMessage.ReadReceiptRequested = True
MonMessage.send
Set MonOutlook = Nothing
End Sub
Ça fonctionne bien, sauf que cela ne fait pas encore ce que je souhai te :
le "To" doit aller chercher les courriels dans une Requête d'Access.
Comme dois-je faire ajouter le tout au code?
Bonne journée!
Souriane
Longueuil, Qc
"heureux-oli" a écrit dans le message d e news:Salut,
Non, le carnet d'adresse c'est autre chose.
************************************
Dim oApp As Outlook.Application
Set oApp = Outlook.Application
************************************
C'est l'utilisation de Outlook, c'est en quelque sorte une bibliothè que et
les objet méthodes et propriétés sont alors utilisables.
L'accusé de réception est propre à Outlook et je ne pense pas qu e tu
puisses utiliser cette propriété sans passer par Outlook.
--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/
http://marie-lebeau.heaj.be/
---------------------------------------------------------------------- ------------
"Souriane" a écrit dans le message de news:
Est-ce que la biblio d'Outlook est le carnet d'adresses? Car si oui,
ce n'est pas possible étant donné que ma base où je vais puiser les
courriels est montée en Access.
Souriane
On 28 août, 15:50, "heureux-oli" wrote :Salut Souriane,
Je pense que le plus sage est de faire le publipostage en utilisant l a
bibliothèque Outlook.
Une piste :
Sub Mailit()
Dim aO As Outlook.Application
Dim myMsg As Outlook.MailItem
set aO = Outlook.application
Set myMsg = aO.CreateItem(olMailItem)
myMsg.ReadReceiptRequested = True
End Sub
--
Heureux-oli
While Not Rs.EOF
MonMessage.To = Rs!desMail 'desMail est le nom du champ
'qui contient l'adresse mail
MonMessage.Send
Wend
While Not Rs.EOF
MonMessage.To = Rs!desMail 'desMail est le nom du champ
'qui contient l'adresse mail
MonMessage.Send
Wend
While Not Rs.EOF
MonMessage.To = Rs!desMail 'desMail est le nom du champ
'qui contient l'adresse mail
MonMessage.Send
Wend