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
Oliv'
Bonjour,
Sous Outlook 2003, j'aimerais savoir à quoi ressemble le code VBA qui permet d'automatiser l'impression des mails reçus la veille.
Cordialement, Patrick EVEN
Je connais un patrick Even à Tourcoing c'est toi ? ci -dessous un exemple.
Sub printmail() ' by oliv' imprimes tous les mails dans la boite de reception reçus hier Dim leMess As MailItem Dim LItem As Object Dim LeDoss As MAPIFolder Dim lesItems As Items Dim i As Integer
Set LeDoss = Session.GetDefaultFolder(olFolderInbox) Set lesItems = LeDoss.Items For Each LItem In lesItems If TypeName(LItem) = "MailItem" Then Set leMess = LItem ' MsgBox LItem.Subject If leMess.ReceivedTime >= DateAdd("d", -1, Date) And leMess.ReceivedTime < Date Then leMess.PrintOut End If Next End Sub
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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/ Sql :http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Bonjour,
Sous Outlook 2003, j'aimerais savoir à quoi ressemble le code VBA
qui permet d'automatiser l'impression des mails reçus la veille.
Cordialement,
Patrick EVEN
Je connais un patrick Even à Tourcoing c'est toi ?
ci -dessous un exemple.
Sub printmail()
' by oliv' imprimes tous les mails dans la boite de reception reçus hier
Dim leMess As MailItem
Dim LItem As Object
Dim LeDoss As MAPIFolder
Dim lesItems As Items
Dim i As Integer
Set LeDoss = Session.GetDefaultFolder(olFolderInbox)
Set lesItems = LeDoss.Items
For Each LItem In lesItems
If TypeName(LItem) = "MailItem" Then
Set leMess = LItem
' MsgBox LItem.Subject
If leMess.ReceivedTime >= DateAdd("d", -1, Date) And
leMess.ReceivedTime < Date Then leMess.PrintOut
End If
Next
End Sub
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Sous Outlook 2003, j'aimerais savoir à quoi ressemble le code VBA qui permet d'automatiser l'impression des mails reçus la veille.
Cordialement, Patrick EVEN
Je connais un patrick Even à Tourcoing c'est toi ? ci -dessous un exemple.
Sub printmail() ' by oliv' imprimes tous les mails dans la boite de reception reçus hier Dim leMess As MailItem Dim LItem As Object Dim LeDoss As MAPIFolder Dim lesItems As Items Dim i As Integer
Set LeDoss = Session.GetDefaultFolder(olFolderInbox) Set lesItems = LeDoss.Items For Each LItem In lesItems If TypeName(LItem) = "MailItem" Then Set leMess = LItem ' MsgBox LItem.Subject If leMess.ReceivedTime >= DateAdd("d", -1, Date) And leMess.ReceivedTime < Date Then leMess.PrintOut End If Next End Sub
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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/ Sql :http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Patrick EVEN
Oliv',
Merci pour ton aide. Je vais bâtir sur cette proposition.
Le Patrick EVEN de Tourcoing est un homonyme que je ne connais pas. Je sais par ailleurs qu'il en existe de nombreux autres pour en avoir vu des traces sur internet.
Cordialement, Patrick EVEN
"Oliv'" <(supprimerceci) a écrit dans le message de news:
Bonjour,
Sous Outlook 2003, j'aimerais savoir à quoi ressemble le code VBA qui permet d'automatiser l'impression des mails reçus la veille.
Cordialement, Patrick EVEN
Je connais un patrick Even à Tourcoing c'est toi ? ci -dessous un exemple.
Sub printmail() ' by oliv' imprimes tous les mails dans la boite de reception reçus hier Dim leMess As MailItem Dim LItem As Object Dim LeDoss As MAPIFolder Dim lesItems As Items Dim i As Integer
Set LeDoss = Session.GetDefaultFolder(olFolderInbox) Set lesItems = LeDoss.Items For Each LItem In lesItems If TypeName(LItem) = "MailItem" Then Set leMess = LItem ' MsgBox LItem.Subject If leMess.ReceivedTime >= DateAdd("d", -1, Date) And leMess.ReceivedTime < Date Then leMess.PrintOut End If Next End Sub
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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/ Sql :http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Oliv',
Merci pour ton aide.
Je vais bâtir sur cette proposition.
Le Patrick EVEN de Tourcoing est un homonyme que je ne connais pas.
Je sais par ailleurs qu'il en existe de nombreux autres pour en avoir vu des
traces sur internet.
Cordialement,
Patrick EVEN
"Oliv'" <(supprimerceci)catteau@ricour-assurances.fr> a écrit dans le
message de news: eqWUCcXMGHA.344@TK2MSFTNGP11.phx.gbl...
Bonjour,
Sous Outlook 2003, j'aimerais savoir à quoi ressemble le code VBA
qui permet d'automatiser l'impression des mails reçus la veille.
Cordialement,
Patrick EVEN
Je connais un patrick Even à Tourcoing c'est toi ?
ci -dessous un exemple.
Sub printmail()
' by oliv' imprimes tous les mails dans la boite de reception reçus hier
Dim leMess As MailItem
Dim LItem As Object
Dim LeDoss As MAPIFolder
Dim lesItems As Items
Dim i As Integer
Set LeDoss = Session.GetDefaultFolder(olFolderInbox)
Set lesItems = LeDoss.Items
For Each LItem In lesItems
If TypeName(LItem) = "MailItem" Then
Set leMess = LItem
' MsgBox LItem.Subject
If leMess.ReceivedTime >= DateAdd("d", -1, Date) And
leMess.ReceivedTime < Date Then leMess.PrintOut
End If
Next
End Sub
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Merci pour ton aide. Je vais bâtir sur cette proposition.
Le Patrick EVEN de Tourcoing est un homonyme que je ne connais pas. Je sais par ailleurs qu'il en existe de nombreux autres pour en avoir vu des traces sur internet.
Cordialement, Patrick EVEN
"Oliv'" <(supprimerceci) a écrit dans le message de news:
Bonjour,
Sous Outlook 2003, j'aimerais savoir à quoi ressemble le code VBA qui permet d'automatiser l'impression des mails reçus la veille.
Cordialement, Patrick EVEN
Je connais un patrick Even à Tourcoing c'est toi ? ci -dessous un exemple.
Sub printmail() ' by oliv' imprimes tous les mails dans la boite de reception reçus hier Dim leMess As MailItem Dim LItem As Object Dim LeDoss As MAPIFolder Dim lesItems As Items Dim i As Integer
Set LeDoss = Session.GetDefaultFolder(olFolderInbox) Set lesItems = LeDoss.Items For Each LItem In lesItems If TypeName(LItem) = "MailItem" Then Set leMess = LItem ' MsgBox LItem.Subject If leMess.ReceivedTime >= DateAdd("d", -1, Date) And leMess.ReceivedTime < Date Then leMess.PrintOut End If Next End Sub
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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/ Sql :http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Oliv'
Oliv',
Merci pour ton aide. Je vais bâtir sur cette proposition.
ATTENTION l'impression se fait toujours sur l'imprimante par defaut avec OUTLOOK. c'est pas top De plus en HTML avec certaines mise en pages commes des tableaux le document peut être tronqué, on peut faire mieux en l'imprimant avec Word mais c'est plus compliqué.
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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/ Sql :http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Cordialement, Patrick EVEN
"Oliv'" <(supprimerceci) a écrit dans le message de news:
Bonjour,
Sous Outlook 2003, j'aimerais savoir à quoi ressemble le code VBA qui permet d'automatiser l'impression des mails reçus la veille.
Cordialement, Patrick EVEN
Je connais un patrick Even à Tourcoing c'est toi ? ci -dessous un exemple.
Sub printmail() ' by oliv' imprimes tous les mails dans la boite de reception reçus hier Dim leMess As MailItem Dim LItem As Object Dim LeDoss As MAPIFolder Dim lesItems As Items Dim i As Integer
Set LeDoss = Session.GetDefaultFolder(olFolderInbox) Set lesItems = LeDoss.Items For Each LItem In lesItems If TypeName(LItem) = "MailItem" Then Set leMess = LItem ' MsgBox LItem.Subject If leMess.ReceivedTime >= DateAdd("d", -1, Date) And leMess.ReceivedTime < Date Then leMess.PrintOut End If Next End Sub
Oliv',
Merci pour ton aide.
Je vais bâtir sur cette proposition.
ATTENTION l'impression se fait toujours sur l'imprimante par defaut avec
OUTLOOK.
c'est pas top
De plus en HTML avec certaines mise en pages commes des tableaux le document
peut être tronqué,
on peut faire mieux en l'imprimant avec Word mais c'est plus compliqué.
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Cordialement,
Patrick EVEN
"Oliv'" <(supprimerceci)catteau@ricour-assurances.fr> a écrit dans le
message de news: eqWUCcXMGHA.344@TK2MSFTNGP11.phx.gbl...
Bonjour,
Sous Outlook 2003, j'aimerais savoir à quoi ressemble le code VBA
qui permet d'automatiser l'impression des mails reçus la veille.
Cordialement,
Patrick EVEN
Je connais un patrick Even à Tourcoing c'est toi ?
ci -dessous un exemple.
Sub printmail()
' by oliv' imprimes tous les mails dans la boite de reception reçus
hier Dim leMess As MailItem
Dim LItem As Object
Dim LeDoss As MAPIFolder
Dim lesItems As Items
Dim i As Integer
Set LeDoss = Session.GetDefaultFolder(olFolderInbox)
Set lesItems = LeDoss.Items
For Each LItem In lesItems
If TypeName(LItem) = "MailItem" Then
Set leMess = LItem
' MsgBox LItem.Subject
If leMess.ReceivedTime >= DateAdd("d", -1, Date) And
leMess.ReceivedTime < Date Then leMess.PrintOut
End If
Next
End Sub
Merci pour ton aide. Je vais bâtir sur cette proposition.
ATTENTION l'impression se fait toujours sur l'imprimante par defaut avec OUTLOOK. c'est pas top De plus en HTML avec certaines mise en pages commes des tableaux le document peut être tronqué, on peut faire mieux en l'imprimant avec Word mais c'est plus compliqué.
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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/ Sql :http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Cordialement, Patrick EVEN
"Oliv'" <(supprimerceci) a écrit dans le message de news:
Bonjour,
Sous Outlook 2003, j'aimerais savoir à quoi ressemble le code VBA qui permet d'automatiser l'impression des mails reçus la veille.
Cordialement, Patrick EVEN
Je connais un patrick Even à Tourcoing c'est toi ? ci -dessous un exemple.
Sub printmail() ' by oliv' imprimes tous les mails dans la boite de reception reçus hier Dim leMess As MailItem Dim LItem As Object Dim LeDoss As MAPIFolder Dim lesItems As Items Dim i As Integer
Set LeDoss = Session.GetDefaultFolder(olFolderInbox) Set lesItems = LeDoss.Items For Each LItem In lesItems If TypeName(LItem) = "MailItem" Then Set leMess = LItem ' MsgBox LItem.Subject If leMess.ReceivedTime >= DateAdd("d", -1, Date) And leMess.ReceivedTime < Date Then leMess.PrintOut End If Next End Sub
Patrick EVEN
Oliv',
On va commencer en faisant simple, c'est à dire sur l'imprimante par défaut. Dans mon cas, ça devrait convenir. Je sais que j'aurais par la suite à imprimer également des pièces jointes. Je m'attends à ce que ce soit un peu plus complexe. Mais si tu as des idées, je suis preneur.
Cordialement, Patrick EVEN
"Oliv'" <(supprimerceci) a écrit dans le message de news:
Oliv',
Merci pour ton aide. Je vais bâtir sur cette proposition.
ATTENTION l'impression se fait toujours sur l'imprimante par defaut avec OUTLOOK. c'est pas top De plus en HTML avec certaines mise en pages commes des tableaux le document peut être tronqué, on peut faire mieux en l'imprimant avec Word mais c'est plus compliqué.
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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/ Sql :http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Cordialement, Patrick EVEN
"Oliv'" <(supprimerceci) a écrit dans le message de news:
Bonjour,
Sous Outlook 2003, j'aimerais savoir à quoi ressemble le code VBA qui permet d'automatiser l'impression des mails reçus la veille.
Cordialement, Patrick EVEN
Je connais un patrick Even à Tourcoing c'est toi ? ci -dessous un exemple.
Sub printmail() ' by oliv' imprimes tous les mails dans la boite de reception reçus hier Dim leMess As MailItem Dim LItem As Object Dim LeDoss As MAPIFolder Dim lesItems As Items Dim i As Integer
Set LeDoss = Session.GetDefaultFolder(olFolderInbox) Set lesItems = LeDoss.Items For Each LItem In lesItems If TypeName(LItem) = "MailItem" Then Set leMess = LItem ' MsgBox LItem.Subject If leMess.ReceivedTime >= DateAdd("d", -1, Date) And leMess.ReceivedTime < Date Then leMess.PrintOut End If Next End Sub
Oliv',
On va commencer en faisant simple, c'est à dire sur l'imprimante par défaut.
Dans mon cas, ça devrait convenir.
Je sais que j'aurais par la suite à imprimer également des pièces jointes.
Je m'attends à ce que ce soit un peu plus complexe.
Mais si tu as des idées, je suis preneur.
Cordialement,
Patrick EVEN
"Oliv'" <(supprimerceci)catteau@ricour-assurances.fr> a écrit dans le
message de news: u8MMB2YMGHA.3960@TK2MSFTNGP09.phx.gbl...
Oliv',
Merci pour ton aide.
Je vais bâtir sur cette proposition.
ATTENTION l'impression se fait toujours sur l'imprimante par defaut avec
OUTLOOK.
c'est pas top
De plus en HTML avec certaines mise en pages commes des tableaux le
document peut être tronqué,
on peut faire mieux en l'imprimant avec Word mais c'est plus compliqué.
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Cordialement,
Patrick EVEN
"Oliv'" <(supprimerceci)catteau@ricour-assurances.fr> a écrit dans le
message de news: eqWUCcXMGHA.344@TK2MSFTNGP11.phx.gbl...
Bonjour,
Sous Outlook 2003, j'aimerais savoir à quoi ressemble le code VBA
qui permet d'automatiser l'impression des mails reçus la veille.
Cordialement,
Patrick EVEN
Je connais un patrick Even à Tourcoing c'est toi ?
ci -dessous un exemple.
Sub printmail()
' by oliv' imprimes tous les mails dans la boite de reception reçus
hier Dim leMess As MailItem
Dim LItem As Object
Dim LeDoss As MAPIFolder
Dim lesItems As Items
Dim i As Integer
Set LeDoss = Session.GetDefaultFolder(olFolderInbox)
Set lesItems = LeDoss.Items
For Each LItem In lesItems
If TypeName(LItem) = "MailItem" Then
Set leMess = LItem
' MsgBox LItem.Subject
If leMess.ReceivedTime >= DateAdd("d", -1, Date) And
leMess.ReceivedTime < Date Then leMess.PrintOut
End If
Next
End Sub
On va commencer en faisant simple, c'est à dire sur l'imprimante par défaut. Dans mon cas, ça devrait convenir. Je sais que j'aurais par la suite à imprimer également des pièces jointes. Je m'attends à ce que ce soit un peu plus complexe. Mais si tu as des idées, je suis preneur.
Cordialement, Patrick EVEN
"Oliv'" <(supprimerceci) a écrit dans le message de news:
Oliv',
Merci pour ton aide. Je vais bâtir sur cette proposition.
ATTENTION l'impression se fait toujours sur l'imprimante par defaut avec OUTLOOK. c'est pas top De plus en HTML avec certaines mise en pages commes des tableaux le document peut être tronqué, on peut faire mieux en l'imprimant avec Word mais c'est plus compliqué.
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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/ Sql :http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Cordialement, Patrick EVEN
"Oliv'" <(supprimerceci) a écrit dans le message de news:
Bonjour,
Sous Outlook 2003, j'aimerais savoir à quoi ressemble le code VBA qui permet d'automatiser l'impression des mails reçus la veille.
Cordialement, Patrick EVEN
Je connais un patrick Even à Tourcoing c'est toi ? ci -dessous un exemple.
Sub printmail() ' by oliv' imprimes tous les mails dans la boite de reception reçus hier Dim leMess As MailItem Dim LItem As Object Dim LeDoss As MAPIFolder Dim lesItems As Items Dim i As Integer
Set LeDoss = Session.GetDefaultFolder(olFolderInbox) Set lesItems = LeDoss.Items For Each LItem In lesItems If TypeName(LItem) = "MailItem" Then Set leMess = LItem ' MsgBox LItem.Subject If leMess.ReceivedTime >= DateAdd("d", -1, Date) And leMess.ReceivedTime < Date Then leMess.PrintOut End If Next End Sub
