Bonjour,
Je ne sais plus o=F9 j'ai trouv=E9 un bout de code que j'ai=20
am=E9nag=E9 pour envoyer des mails mais =E7a ne marche pas.
Voil=E0 ce que j'ai =E9crit:
Dim OLApp As New Outlook.Application
Dim M As Outlook.MailItem
Dim destinataire As String
destinataire =3D "lcrt@bluewin.ch"
Set M =3D OLApp.CreateItem(olMailItem)
M.To =3D destinataire
M.Attachement.Add Report. "CODES2",=20
acNormal, , "([R=E9fCode]=3D [Forms]![Code2].[R=E9fCode])"
=20
M.Send
OLApp.Quit
Set OLApp =3D Nothing
Avec =E7a j'aimerai envoyer un mail avec un Etat en pi=E8ce=20
jointe.
Et ce qui m'arrangerai en plus c'est que =E7a ne me laisse=20
pas de trasse sur mon Outlook, car =E0 l'heure actuelle je=20
le fais manuellement mais je perds plus de temps =E0 les=20
supprimer d'Outlook qu'=E0 les envoyer (il y en a environ 20=20
par jour =E0 8 correspondants diff=E9rents, donc 160=20
suppression =E0 faire)
Merci pour votre aide.
Luis
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
Logipro
Bonjour Luis
Voici un utilitaire complet :
http://www.logicielappui.com/tips/AccXP_Mail.zip
Bonne continuation !
Robert Simard Logipro
"Luis" a écrit dans le message de news:dff101c43c03$06b7be10$ Bonjour, Je ne sais plus où j'ai trouvé un bout de code que j'ai aménagé pour envoyer des mails mais ça ne marche pas. Voilà ce que j'ai écrit:
Dim OLApp As New Outlook.Application Dim M As Outlook.MailItem Dim destinataire As String
destinataire = "" Set M = OLApp.CreateItem(olMailItem) M.To = destinataire M.Attachement.Add Report. "CODES2", acNormal, , "([RéfCode]= [Forms]![Code2].[RéfCode])"
M.Send OLApp.Quit Set OLApp = Nothing
Avec ça j'aimerai envoyer un mail avec un Etat en pièce jointe. Et ce qui m'arrangerai en plus c'est que ça ne me laisse pas de trasse sur mon Outlook, car à l'heure actuelle je le fais manuellement mais je perds plus de temps à les supprimer d'Outlook qu'à les envoyer (il y en a environ 20 par jour à 8 correspondants différents, donc 160 suppression à faire) Merci pour votre aide. Luis
Bonjour Luis
Voici un utilitaire complet :
http://www.logicielappui.com/tips/AccXP_Mail.zip
Bonne continuation !
Robert Simard
Logipro
"Luis" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:dff101c43c03$06b7be10$a501280a@phx.gbl...
Bonjour,
Je ne sais plus où j'ai trouvé un bout de code que j'ai
aménagé pour envoyer des mails mais ça ne marche pas.
Voilà ce que j'ai écrit:
Dim OLApp As New Outlook.Application
Dim M As Outlook.MailItem
Dim destinataire As String
destinataire = "lcrt@bluewin.ch"
Set M = OLApp.CreateItem(olMailItem)
M.To = destinataire
M.Attachement.Add Report. "CODES2",
acNormal, , "([RéfCode]= [Forms]![Code2].[RéfCode])"
M.Send
OLApp.Quit
Set OLApp = Nothing
Avec ça j'aimerai envoyer un mail avec un Etat en pièce
jointe.
Et ce qui m'arrangerai en plus c'est que ça ne me laisse
pas de trasse sur mon Outlook, car à l'heure actuelle je
le fais manuellement mais je perds plus de temps à les
supprimer d'Outlook qu'à les envoyer (il y en a environ 20
par jour à 8 correspondants différents, donc 160
suppression à faire)
Merci pour votre aide.
Luis
"Luis" a écrit dans le message de news:dff101c43c03$06b7be10$ Bonjour, Je ne sais plus où j'ai trouvé un bout de code que j'ai aménagé pour envoyer des mails mais ça ne marche pas. Voilà ce que j'ai écrit:
Dim OLApp As New Outlook.Application Dim M As Outlook.MailItem Dim destinataire As String
destinataire = "" Set M = OLApp.CreateItem(olMailItem) M.To = destinataire M.Attachement.Add Report. "CODES2", acNormal, , "([RéfCode]= [Forms]![Code2].[RéfCode])"
M.Send OLApp.Quit Set OLApp = Nothing
Avec ça j'aimerai envoyer un mail avec un Etat en pièce jointe. Et ce qui m'arrangerai en plus c'est que ça ne me laisse pas de trasse sur mon Outlook, car à l'heure actuelle je le fais manuellement mais je perds plus de temps à les supprimer d'Outlook qu'à les envoyer (il y en a environ 20 par jour à 8 correspondants différents, donc 160 suppression à faire) Merci pour votre aide. Luis
Luis
Bonjour Robert, C'est gentil, mais ce n'est pas ce que je cherche. Mon problème n'est pas d'ouvrir Outlook ou Outlook Express, mais d'envoyer des emails en cliquent sur l'événement, sans ouvrir Outlook et sans que sa laisse les traces habituelles et fastidieuses à supprimer. D'ailleurs sur la commande que je veux faire l'adresse du destinataire est déjà incluse. Merci tout de même. Luis
-----Message d'origine----- Bonjour Luis
Voici un utilitaire complet :
http://www.logicielappui.com/tips/AccXP_Mail.zip
Bonne continuation !
Robert Simard Logipro
"Luis" a écrit dans le message de
news:dff101c43c03$06b7be10$ Bonjour, Je ne sais plus où j'ai trouvé un bout de code que j'ai aménagé pour envoyer des mails mais ça ne marche pas. Voilà ce que j'ai écrit:
Dim OLApp As New Outlook.Application Dim M As Outlook.MailItem Dim destinataire As String
destinataire = "" Set M = OLApp.CreateItem(olMailItem) M.To = destinataire M.Attachement.Add Report. "CODES2", acNormal, , "([RéfCode]= [Forms]![Code2].[RéfCode])"
M.Send OLApp.Quit Set OLApp = Nothing
Avec ça j'aimerai envoyer un mail avec un Etat en pièce jointe. Et ce qui m'arrangerai en plus c'est que ça ne me laisse pas de trasse sur mon Outlook, car à l'heure actuelle je le fais manuellement mais je perds plus de temps à les supprimer d'Outlook qu'à les envoyer (il y en a environ 20 par jour à 8 correspondants différents, donc 160 suppression à faire) Merci pour votre aide. Luis
.
Bonjour Robert,
C'est gentil, mais ce n'est pas ce que je cherche.
Mon problème n'est pas d'ouvrir Outlook ou Outlook
Express, mais d'envoyer des emails en cliquent sur
l'événement, sans ouvrir Outlook et sans que sa laisse les
traces habituelles et fastidieuses à supprimer.
D'ailleurs sur la commande que je veux faire l'adresse du
destinataire est déjà incluse.
Merci tout de même.
Luis
-----Message d'origine-----
Bonjour Luis
Voici un utilitaire complet :
http://www.logicielappui.com/tips/AccXP_Mail.zip
Bonne continuation !
Robert Simard
Logipro
"Luis" <anonymous@discussions.microsoft.com> a écrit dans
le message de
news:dff101c43c03$06b7be10$a501280a@phx.gbl...
Bonjour,
Je ne sais plus où j'ai trouvé un bout de code que j'ai
aménagé pour envoyer des mails mais ça ne marche pas.
Voilà ce que j'ai écrit:
Dim OLApp As New Outlook.Application
Dim M As Outlook.MailItem
Dim destinataire As String
destinataire = "lcrt@bluewin.ch"
Set M = OLApp.CreateItem(olMailItem)
M.To = destinataire
M.Attachement.Add Report. "CODES2",
acNormal, , "([RéfCode]= [Forms]![Code2].[RéfCode])"
M.Send
OLApp.Quit
Set OLApp = Nothing
Avec ça j'aimerai envoyer un mail avec un Etat en pièce
jointe.
Et ce qui m'arrangerai en plus c'est que ça ne me laisse
pas de trasse sur mon Outlook, car à l'heure actuelle je
le fais manuellement mais je perds plus de temps à les
supprimer d'Outlook qu'à les envoyer (il y en a environ 20
par jour à 8 correspondants différents, donc 160
suppression à faire)
Merci pour votre aide.
Luis
Bonjour Robert, C'est gentil, mais ce n'est pas ce que je cherche. Mon problème n'est pas d'ouvrir Outlook ou Outlook Express, mais d'envoyer des emails en cliquent sur l'événement, sans ouvrir Outlook et sans que sa laisse les traces habituelles et fastidieuses à supprimer. D'ailleurs sur la commande que je veux faire l'adresse du destinataire est déjà incluse. Merci tout de même. Luis
-----Message d'origine----- Bonjour Luis
Voici un utilitaire complet :
http://www.logicielappui.com/tips/AccXP_Mail.zip
Bonne continuation !
Robert Simard Logipro
"Luis" a écrit dans le message de
news:dff101c43c03$06b7be10$ Bonjour, Je ne sais plus où j'ai trouvé un bout de code que j'ai aménagé pour envoyer des mails mais ça ne marche pas. Voilà ce que j'ai écrit:
Dim OLApp As New Outlook.Application Dim M As Outlook.MailItem Dim destinataire As String
destinataire = "" Set M = OLApp.CreateItem(olMailItem) M.To = destinataire M.Attachement.Add Report. "CODES2", acNormal, , "([RéfCode]= [Forms]![Code2].[RéfCode])"
M.Send OLApp.Quit Set OLApp = Nothing
Avec ça j'aimerai envoyer un mail avec un Etat en pièce jointe. Et ce qui m'arrangerai en plus c'est que ça ne me laisse pas de trasse sur mon Outlook, car à l'heure actuelle je le fais manuellement mais je perds plus de temps à les supprimer d'Outlook qu'à les envoyer (il y en a environ 20 par jour à 8 correspondants différents, donc 160 suppression à faire) Merci pour votre aide. Luis
