Access 97 - Envoyer un état via email?

Le
Der Meister
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.
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Barlou
Le #5043941
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.


.



Der Meister
Le #5043831
Merci beaucoup Barlou

"Barlou" 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
Le #5043791
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"

DoCmd.Hourglass True
Dates = Day(Date) & "_" & Month(Date) & "_" & Year(Date)
With Application.FileSearch
.LookIn = LeChemin
.SearchSubFolders = False
.FileName = "Table_" & Table & "_au_" & Dates & ".xls"
.Execute

NbFichiers = .FoundFiles.Count
LeFichier = LeChemin & "Table_" & Table & "_au_" & Dates & ".xls"
DoCmd.OutputTo acOutputReport, "E_" & Table & "_liste_diffuser",
acFormatXLS, LeChemin & "Table_" & Table & "_au_" & Dates & ".xls", False

.Execute
NbFichiers = .FoundFiles.Count - NbFichiers

End With

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
Le #5043631
ah ben ca c'est vraiment gentil :o)

un grand merci à toi

Cordialement

"NoMail" 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"

DoCmd.Hourglass True
Dates = Day(Date) & "_" & Month(Date) & "_" & Year(Date)
With Application.FileSearch
.LookIn = LeChemin
.SearchSubFolders = False
.FileName = "Table_" & Table & "_au_" & Dates & ".xls"
.Execute

NbFichiers = .FoundFiles.Count
LeFichier = LeChemin & "Table_" & Table & "_au_" & Dates & ".xls"
DoCmd.OutputTo acOutputReport, "E_" & Table & "_liste_diffuser",
acFormatXLS, LeChemin & "Table_" & Table & "_au_" & Dates & ".xls", False

.Execute
NbFichiers = .FoundFiles.Count - NbFichiers

End With

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



Publicité
Poster une réponse
Anonyme