Quelqu'un connait un moyen d'envoyer un état via email?
En fait le convertir en format word, ouvrir Outlook Express(mode nouveau
message) et le placer en piece jointe automatiquement en un seul click? me
restant plus qu'a inscrire l'adresse email, objet et message? Un active X,
API, ou une méthode quelquonque?
J'utilise Access 97 SP2 pour cette base de donnée
Merci
Cordialement
Michel
Saguenay, Québec
----------------------------------------------------
Liberté, Égalité, Indépendance.
Nous ne voulons plus être une province pas comme les autres, nous voulons
être un pays comme les autres. Pierre Bourgault.
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
Barlou
Bonjour,
Dans le code VBA ou avec une macro, la commande DOCMD.SENDOBJECT te permet de faire cette manip assez facilement. Tu y configures le titre, le format de sortie, les destinataires etc...
Barlou
-----Message d'origine----- Bonjour
Quelqu'un connait un moyen d'envoyer un état via email?
En fait le convertir en format word, ouvrir Outlook Express(mode nouveau
message) et le placer en piece jointe automatiquement en un seul click? me
restant plus qu'a inscrire l'adresse email, objet et message? Un active X,
API, ou une méthode quelquonque?
J'utilise Access 97 SP2 pour cette base de donnée
Merci
Cordialement Michel Saguenay, Québec ---------------------------------------------------- Liberté, Égalité, Indépendance.
Nous ne voulons plus être une province pas comme les autres, nous voulons
être un pays comme les autres. Pierre Bourgault.
.
Bonjour,
Dans le code VBA ou avec une macro, la commande
DOCMD.SENDOBJECT te permet de faire cette manip assez
facilement. Tu y configures le titre, le format de sortie,
les destinataires etc...
Barlou
-----Message d'origine-----
Bonjour
Quelqu'un connait un moyen d'envoyer un état via
email?
En fait le convertir en format word, ouvrir Outlook
Express(mode nouveau
message) et le placer en piece jointe automatiquement en
un seul click? me
restant plus qu'a inscrire l'adresse email, objet et
message? Un active X,
API, ou une méthode quelquonque?
J'utilise Access 97 SP2 pour cette base de donnée
Merci
Cordialement
Michel
Saguenay, Québec
----------------------------------------------------
Liberté, Égalité, Indépendance.
Nous ne voulons plus être une province pas comme les
autres, nous voulons
Dans le code VBA ou avec une macro, la commande DOCMD.SENDOBJECT te permet de faire cette manip assez facilement. Tu y configures le titre, le format de sortie, les destinataires etc...
Barlou
-----Message d'origine----- Bonjour
Quelqu'un connait un moyen d'envoyer un état via email?
En fait le convertir en format word, ouvrir Outlook Express(mode nouveau
message) et le placer en piece jointe automatiquement en un seul click? me
restant plus qu'a inscrire l'adresse email, objet et message? Un active X,
API, ou une méthode quelquonque?
J'utilise Access 97 SP2 pour cette base de donnée
Merci
Cordialement Michel Saguenay, Québec ---------------------------------------------------- Liberté, Égalité, Indépendance.
Nous ne voulons plus être une province pas comme les autres, nous voulons
être un pays comme les autres. Pierre Bourgault.
.
Der Meister
Merci beaucoup Barlou
"Barlou" a écrit dans le message de news:1a6101c426e4$049f6350$ Bonjour,
Dans le code VBA ou avec une macro, la commande DOCMD.SENDOBJECT te permet de faire cette manip assez facilement. Tu y configures le titre, le format de sortie, les destinataires etc...
Barlou
-----Message d'origine----- Bonjour
Quelqu'un connait un moyen d'envoyer un état via email?
En fait le convertir en format word, ouvrir Outlook Express(mode nouveau
message) et le placer en piece jointe automatiquement en un seul click? me
restant plus qu'a inscrire l'adresse email, objet et message? Un active X,
API, ou une méthode quelquonque?
J'utilise Access 97 SP2 pour cette base de donnée
Merci
Cordialement Michel Saguenay, Québec ---------------------------------------------------- Liberté, Égalité, Indépendance.
Nous ne voulons plus être une province pas comme les autres, nous voulons
être un pays comme les autres. Pierre Bourgault.
.
Merci beaucoup Barlou
"Barlou" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1a6101c426e4$049f6350$a001280a@phx.gbl...
Bonjour,
Dans le code VBA ou avec une macro, la commande
DOCMD.SENDOBJECT te permet de faire cette manip assez
facilement. Tu y configures le titre, le format de sortie,
les destinataires etc...
Barlou
-----Message d'origine-----
Bonjour
Quelqu'un connait un moyen d'envoyer un état via
email?
En fait le convertir en format word, ouvrir Outlook
Express(mode nouveau
message) et le placer en piece jointe automatiquement en
un seul click? me
restant plus qu'a inscrire l'adresse email, objet et
message? Un active X,
API, ou une méthode quelquonque?
J'utilise Access 97 SP2 pour cette base de donnée
Merci
Cordialement
Michel
Saguenay, Québec
----------------------------------------------------
Liberté, Égalité, Indépendance.
Nous ne voulons plus être une province pas comme les
autres, nous voulons
"Barlou" a écrit dans le message de news:1a6101c426e4$049f6350$ Bonjour,
Dans le code VBA ou avec une macro, la commande DOCMD.SENDOBJECT te permet de faire cette manip assez facilement. Tu y configures le titre, le format de sortie, les destinataires etc...
Barlou
-----Message d'origine----- Bonjour
Quelqu'un connait un moyen d'envoyer un état via email?
En fait le convertir en format word, ouvrir Outlook Express(mode nouveau
message) et le placer en piece jointe automatiquement en un seul click? me
restant plus qu'a inscrire l'adresse email, objet et message? Un active X,
API, ou une méthode quelquonque?
J'utilise Access 97 SP2 pour cette base de donnée
Merci
Cordialement Michel Saguenay, Québec ---------------------------------------------------- Liberté, Égalité, Indépendance.
Nous ne voulons plus être une province pas comme les autres, nous voulons
être un pays comme les autres. Pierre Bourgault.
.
NoMail
Bonjour Der Meister , Le 20/04/2004 16:09 :
Bonjour
Quelqu'un connait un moyen d'envoyer un état via email?
En fait le convertir en format word, ouvrir Outlook Express(mode nouveau message) et le placer en piece jointe automatiquement en un seul click? me restant plus qu'a inscrire l'adresse email, objet et message? Un active X, API, ou une méthode quelquonque?
J'utilise Access 97 SP2 pour cette base de donnée
Merci
Cordialement Michel Saguenay, Québec ---------------------------------------------------- Liberté, Égalité, Indépendance.
Nous ne voulons plus être une province pas comme les autres, nous voulons être un pays comme les autres. Pierre Bourgault.
comme ça ca tourne (si tu as outlook):
Option Compare Database Option Explicit
Function Liste_de_diffusion() Dim Destinataire As String Destinataire = "" Liste_de_diffusion = Destinataire End Function Function Message() Dim Texte As String Texte = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">" & vbCrLf & _ "<HTML>" & vbCrLf & _ "<HEAD>" & vbCrLf & _ "</HEAD>" & vbCrLf & _ "<BODY>" & vbCrLf & _ "TEXTE" & vbCrLf & _ "</BODY>" & vbCrLf & _ "</HTML>" Message = Texte End Function Function Envoi8G() Dim Texte As String, Destinataire As String Destinataire = Liste_de_diffusion() 'MsgBox Destinataire Texte = Message() SendReportHTML "8G", Texte, Destinataire
End Function Function M_ENVOI_G7() Dim Texte As String, Destinataire As String Destinataire = Liste_de_diffusion() Texte = Message() SendReportHTML "G7", Texte, Destinataire
End Function
Public Sub SendReportHTML(Table As String, Texte As String, Destinataire As String)
Dim NbFichiers As Integer Dim i As Integer Dim LeFichier As String Dim txtLine As String Dim F As Integer Dim CorpsHTML As String Dim OlApp As New Outlook.Application Dim OlItem As Outlook.MailItem Dim Dates As String Dim LeChemin As String 'Dim Destinataire As String Dim Sujet As String Dim EditMessage As Boolean LeChemin = "ora-FI0ZFI0ZRF0001_RfAnalytique 2003referentiel"
Set OlItem = OlApp.CreateItem(olMailItem) EditMessage = False With OlItem .To = Destinataire '.CC = "" '.BCC = "" .Subject = "Table " & Table & " au : " & Date .HTMLBody = Texte 'If PieceJointe <> "" Then: .Attachments.Add PieceJointe .Attachments.Add LeFichier .Save If EditMessage = True Then .Display Else .Send End If End With
Set OlItem = Nothing Set OlApp = Nothing
DoCmd.Hourglass False
End Sub
Bonjour Der Meister , Le 20/04/2004 16:09 :
Bonjour
Quelqu'un connait un moyen d'envoyer un état via email?
En fait le convertir en format word, ouvrir Outlook Express(mode nouveau
message) et le placer en piece jointe automatiquement en un seul click? me
restant plus qu'a inscrire l'adresse email, objet et message? Un active X,
API, ou une méthode quelquonque?
J'utilise Access 97 SP2 pour cette base de donnée
Merci
Cordialement
Michel
Saguenay, Québec
----------------------------------------------------
Liberté, Égalité, Indépendance.
Nous ne voulons plus être une province pas comme les autres, nous voulons
être un pays comme les autres. Pierre Bourgault.
comme ça ca tourne (si tu as outlook):
Option Compare Database
Option Explicit
Function Liste_de_diffusion()
Dim Destinataire As String
Destinataire = "pasdemail@hotmail.com"
Liste_de_diffusion = Destinataire
End Function
Function Message()
Dim Texte As String
Texte = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">" & vbCrLf & _
"<HTML>" & vbCrLf & _
"<HEAD>" & vbCrLf & _
"</HEAD>" & vbCrLf & _
"<BODY>" & vbCrLf & _
"TEXTE" & vbCrLf & _
"</BODY>" & vbCrLf & _
"</HTML>"
Message = Texte
End Function
Function Envoi8G()
Dim Texte As String, Destinataire As String
Destinataire = Liste_de_diffusion()
'MsgBox Destinataire
Texte = Message()
SendReportHTML "8G", Texte, Destinataire
End Function
Function M_ENVOI_G7()
Dim Texte As String, Destinataire As String
Destinataire = Liste_de_diffusion()
Texte = Message()
SendReportHTML "G7", Texte, Destinataire
End Function
Public Sub SendReportHTML(Table As String, Texte As String, Destinataire
As String)
Dim NbFichiers As Integer
Dim i As Integer
Dim LeFichier As String
Dim txtLine As String
Dim F As Integer
Dim CorpsHTML As String
Dim OlApp As New Outlook.Application
Dim OlItem As Outlook.MailItem
Dim Dates As String
Dim LeChemin As String
'Dim Destinataire As String
Dim Sujet As String
Dim EditMessage As Boolean
LeChemin = "\ora-FI0ZFI0ZRF0001_RfAnalytique 2003referentiel"
Quelqu'un connait un moyen d'envoyer un état via email?
En fait le convertir en format word, ouvrir Outlook Express(mode nouveau message) et le placer en piece jointe automatiquement en un seul click? me restant plus qu'a inscrire l'adresse email, objet et message? Un active X, API, ou une méthode quelquonque?
J'utilise Access 97 SP2 pour cette base de donnée
Merci
Cordialement Michel Saguenay, Québec ---------------------------------------------------- Liberté, Égalité, Indépendance.
Nous ne voulons plus être une province pas comme les autres, nous voulons être un pays comme les autres. Pierre Bourgault.
comme ça ca tourne (si tu as outlook):
Option Compare Database Option Explicit
Function Liste_de_diffusion() Dim Destinataire As String Destinataire = "" Liste_de_diffusion = Destinataire End Function Function Message() Dim Texte As String Texte = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">" & vbCrLf & _ "<HTML>" & vbCrLf & _ "<HEAD>" & vbCrLf & _ "</HEAD>" & vbCrLf & _ "<BODY>" & vbCrLf & _ "TEXTE" & vbCrLf & _ "</BODY>" & vbCrLf & _ "</HTML>" Message = Texte End Function Function Envoi8G() Dim Texte As String, Destinataire As String Destinataire = Liste_de_diffusion() 'MsgBox Destinataire Texte = Message() SendReportHTML "8G", Texte, Destinataire
End Function Function M_ENVOI_G7() Dim Texte As String, Destinataire As String Destinataire = Liste_de_diffusion() Texte = Message() SendReportHTML "G7", Texte, Destinataire
End Function
Public Sub SendReportHTML(Table As String, Texte As String, Destinataire As String)
Dim NbFichiers As Integer Dim i As Integer Dim LeFichier As String Dim txtLine As String Dim F As Integer Dim CorpsHTML As String Dim OlApp As New Outlook.Application Dim OlItem As Outlook.MailItem Dim Dates As String Dim LeChemin As String 'Dim Destinataire As String Dim Sujet As String Dim EditMessage As Boolean LeChemin = "ora-FI0ZFI0ZRF0001_RfAnalytique 2003referentiel"
Set OlItem = OlApp.CreateItem(olMailItem) EditMessage = False With OlItem .To = Destinataire '.CC = "" '.BCC = "" .Subject = "Table " & Table & " au : " & Date .HTMLBody = Texte 'If PieceJointe <> "" Then: .Attachments.Add PieceJointe .Attachments.Add LeFichier .Save If EditMessage = True Then .Display Else .Send End If End With
Set OlItem = Nothing Set OlApp = Nothing
DoCmd.Hourglass False
End Sub
Der Meister
ah ben ca c'est vraiment gentil :o)
un grand merci à toi
Cordialement
"NoMail" a écrit dans le message de news:c63epa$
Bonjour Der Meister , Le 20/04/2004 16:09 :
Bonjour
Quelqu'un connait un moyen d'envoyer un état via email?
En fait le convertir en format word, ouvrir Outlook Express(mode nouveau message) et le placer en piece jointe automatiquement en un seul click? me
restant plus qu'a inscrire l'adresse email, objet et message? Un active X,
API, ou une méthode quelquonque?
J'utilise Access 97 SP2 pour cette base de donnée
Merci
Cordialement Michel Saguenay, Québec ---------------------------------------------------- Liberté, Égalité, Indépendance.
Nous ne voulons plus être une province pas comme les autres, nous voulons
être un pays comme les autres. Pierre Bourgault.
comme ça ca tourne (si tu as outlook):
Option Compare Database Option Explicit
Function Liste_de_diffusion() Dim Destinataire As String Destinataire = "" Liste_de_diffusion = Destinataire End Function Function Message() Dim Texte As String Texte = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">" & vbCrLf & _ "<HTML>" & vbCrLf & _ "<HEAD>" & vbCrLf & _ "</HEAD>" & vbCrLf & _ "<BODY>" & vbCrLf & _ "TEXTE" & vbCrLf & _ "</BODY>" & vbCrLf & _ "</HTML>" Message = Texte End Function Function Envoi8G() Dim Texte As String, Destinataire As String Destinataire = Liste_de_diffusion() 'MsgBox Destinataire Texte = Message() SendReportHTML "8G", Texte, Destinataire
End Function Function M_ENVOI_G7() Dim Texte As String, Destinataire As String Destinataire = Liste_de_diffusion() Texte = Message() SendReportHTML "G7", Texte, Destinataire
End Function
Public Sub SendReportHTML(Table As String, Texte As String, Destinataire As String)
Dim NbFichiers As Integer Dim i As Integer Dim LeFichier As String Dim txtLine As String Dim F As Integer Dim CorpsHTML As String Dim OlApp As New Outlook.Application Dim OlItem As Outlook.MailItem Dim Dates As String Dim LeChemin As String 'Dim Destinataire As String Dim Sujet As String Dim EditMessage As Boolean LeChemin = "ora-FI0ZFI0ZRF0001_RfAnalytique 2003referentiel"
Set OlItem = OlApp.CreateItem(olMailItem) EditMessage = False With OlItem .To = Destinataire '.CC = "" '.BCC = "" .Subject = "Table " & Table & " au : " & Date .HTMLBody = Texte 'If PieceJointe <> "" Then: .Attachments.Add PieceJointe .Attachments.Add LeFichier .Save If EditMessage = True Then .Display Else .Send End If End With
Set OlItem = Nothing Set OlApp = Nothing
DoCmd.Hourglass False
End Sub
ah ben ca c'est vraiment gentil :o)
un grand merci à toi
Cordialement
"NoMail" <NoMail@nomail.com> a écrit dans le message de
news:c63epa$ml15@news.rd.francetelecom.fr...
Bonjour Der Meister , Le 20/04/2004 16:09 :
Bonjour
Quelqu'un connait un moyen d'envoyer un état via email?
En fait le convertir en format word, ouvrir Outlook Express(mode nouveau
message) et le placer en piece jointe automatiquement en un seul click?
me
restant plus qu'a inscrire l'adresse email, objet et message? Un active
X,
API, ou une méthode quelquonque?
J'utilise Access 97 SP2 pour cette base de donnée
Merci
Cordialement
Michel
Saguenay, Québec
----------------------------------------------------
Liberté, Égalité, Indépendance.
Nous ne voulons plus être une province pas comme les autres, nous
voulons
être un pays comme les autres. Pierre Bourgault.
comme ça ca tourne (si tu as outlook):
Option Compare Database
Option Explicit
Function Liste_de_diffusion()
Dim Destinataire As String
Destinataire = "pasdemail@hotmail.com"
Liste_de_diffusion = Destinataire
End Function
Function Message()
Dim Texte As String
Texte = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">" & vbCrLf & _
"<HTML>" & vbCrLf & _
"<HEAD>" & vbCrLf & _
"</HEAD>" & vbCrLf & _
"<BODY>" & vbCrLf & _
"TEXTE" & vbCrLf & _
"</BODY>" & vbCrLf & _
"</HTML>"
Message = Texte
End Function
Function Envoi8G()
Dim Texte As String, Destinataire As String
Destinataire = Liste_de_diffusion()
'MsgBox Destinataire
Texte = Message()
SendReportHTML "8G", Texte, Destinataire
End Function
Function M_ENVOI_G7()
Dim Texte As String, Destinataire As String
Destinataire = Liste_de_diffusion()
Texte = Message()
SendReportHTML "G7", Texte, Destinataire
End Function
Public Sub SendReportHTML(Table As String, Texte As String, Destinataire
As String)
Dim NbFichiers As Integer
Dim i As Integer
Dim LeFichier As String
Dim txtLine As String
Dim F As Integer
Dim CorpsHTML As String
Dim OlApp As New Outlook.Application
Dim OlItem As Outlook.MailItem
Dim Dates As String
Dim LeChemin As String
'Dim Destinataire As String
Dim Sujet As String
Dim EditMessage As Boolean
LeChemin = "\ora-FI0ZFI0ZRF0001_RfAnalytique 2003referentiel"
Quelqu'un connait un moyen d'envoyer un état via email?
En fait le convertir en format word, ouvrir Outlook Express(mode nouveau message) et le placer en piece jointe automatiquement en un seul click? me
restant plus qu'a inscrire l'adresse email, objet et message? Un active X,
API, ou une méthode quelquonque?
J'utilise Access 97 SP2 pour cette base de donnée
Merci
Cordialement Michel Saguenay, Québec ---------------------------------------------------- Liberté, Égalité, Indépendance.
Nous ne voulons plus être une province pas comme les autres, nous voulons
être un pays comme les autres. Pierre Bourgault.
comme ça ca tourne (si tu as outlook):
Option Compare Database Option Explicit
Function Liste_de_diffusion() Dim Destinataire As String Destinataire = "" Liste_de_diffusion = Destinataire End Function Function Message() Dim Texte As String Texte = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">" & vbCrLf & _ "<HTML>" & vbCrLf & _ "<HEAD>" & vbCrLf & _ "</HEAD>" & vbCrLf & _ "<BODY>" & vbCrLf & _ "TEXTE" & vbCrLf & _ "</BODY>" & vbCrLf & _ "</HTML>" Message = Texte End Function Function Envoi8G() Dim Texte As String, Destinataire As String Destinataire = Liste_de_diffusion() 'MsgBox Destinataire Texte = Message() SendReportHTML "8G", Texte, Destinataire
End Function Function M_ENVOI_G7() Dim Texte As String, Destinataire As String Destinataire = Liste_de_diffusion() Texte = Message() SendReportHTML "G7", Texte, Destinataire
End Function
Public Sub SendReportHTML(Table As String, Texte As String, Destinataire As String)
Dim NbFichiers As Integer Dim i As Integer Dim LeFichier As String Dim txtLine As String Dim F As Integer Dim CorpsHTML As String Dim OlApp As New Outlook.Application Dim OlItem As Outlook.MailItem Dim Dates As String Dim LeChemin As String 'Dim Destinataire As String Dim Sujet As String Dim EditMessage As Boolean LeChemin = "ora-FI0ZFI0ZRF0001_RfAnalytique 2003referentiel"