Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access comment envoyer un état sous format word(rtf) en attachement ?

comment envoyer un état sous format word(rtf) en attachement ?

3 réponses
Avatar
controlShift
Bonjour,

Savez-vous comment
1/ Convertir un état en format word (rtf) ?
2/ L'envoyer comme pièce attachée par email ?


Merci
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
Raymond
Bonjour.

Visualiser l'état.
Menu fichier / envoyer vers / destinataire du message en tant que pièce
jointe / sélectionner RTF / OK
compléter le mail.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"controlShift" a écrit dans le message de
news:3f658335$0$20946$
Bonjour,

Savez-vous comment
1/ Convertir un état en format word (rtf) ?
2/ L'envoyer comme pièce attachée par email ?


Merci




Avatar
controlShift
on ne peut pas automatiser le processus
en Access Basic ? (ou avec 1 macro ?)


Merci



"Raymond" a écrit dans le message news:
Oil$
Bonjour.

Visualiser l'état.
Menu fichier / envoyer vers / destinataire du message en tant que pièce
jointe / sélectionner RTF / OK
compléter le mail.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"controlShift" a écrit dans le message de
news:3f658335$0$20946$
Bonjour,

Savez-vous comment
1/ Convertir un état en format word (rtf) ?
2/ L'envoyer comme pièce attachée par email ?


Merci







Avatar
Raymond
Bien sûr.

en profiter pour faire un snapshot pour que l'état ne soit pas modifiable
par les destinataire.

Private Sub Commande0_Click()
DoCmd.OutputTo acOutputReport, "état1", acFormatSNP, "c:fichier.snp"
SendMessage "", _
"Test d'automation avec Outlook", _
"Ci-joint notre test d'automation." & vbCrLf & vbCrLf, _
"", _
"c:fichier.snp"

End Sub

Private Sub SendMessage(Destinataire As String, _
Sujet As String, _
Corps As String, _
Optional CopieCC As String, _
Optional PièceJointe As String)

Dim OL_App As New Outlook.Application
Dim OL_Attach As Outlook.Attachment
Dim OL_Recipient As Outlook.Recipient
Dim OL_Msg As Outlook.MailItem

Set OL_Msg = OL_App.CreateItem(olMailItem)
With OL_Msg
Set OL_Recipient = .Recipients.Add(Destinataire)
OL_Recipient.Type = olTo

If Not IsMissing(CopieCC) Then
If CopieCC <> "" Then
Set OL_Recipient = .Recipients.Add(CopieCC)
OL_Recipient.Type = olCC
End If
End If

.Subject = Sujet
.Body = Corps
.Importance = olImportanceHigh

If Not IsMissing(PièceJointe) Then
If PièceJointe <> "" Then
Set OL_Attach = .Attachments.Add(PièceJointe)
End If
End If

For Each OL_Recipient In .Recipients
OL_Recipient.Resolve
If Not OL_Recipient.Resolve Then
OL_Msg.Display
End If
Next
.Send

End With
Set OL_Msg = Nothing
Set OL_App = Nothing
Set OL_Attach = Nothing
Set OL_Recipient = Nothing
End Sub
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"controlShift" a écrit dans le message de
news:3f659334$0$20942$
on ne peut pas automatiser le processus
en Access Basic ? (ou avec 1 macro ?)