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 Excel Supprimer la fonction répondre aux mails envoyés automatiquement

Supprimer la fonction répondre aux mails envoyés automatiquement

1 réponse
Avatar
kanasurf
Bonjour =E0 tous.

J'utilise une macro qui me permet d'envoyer des mail automatiquement.
J'ai d=E9fini un formulaire dans outlook qui me permet de supprimer la
fonction "R=E9pondre" lorsque j'envoie un mail. C'est =E0 dire que la
personne qui recoit ce mail ne puisse pas me le retourner.

J'aimerai que ce formulaire s'applique aux messages qu'envoie mon
programme ou pouvoir dans mon code, enlever la fonction "R=E9pondre" aux
mails envoy=E9s.


Mon programme est du type:
Sub EnvoiCourrierOutlook2003()
Dim OutApp As Object
Dim OutMail As Object
Dim Message As String
Dim objOutlookAttach


Set OutApp =3D CreateObject("Outlook.Application")
Set OutMail =3D OutApp.CreateItem(olMailItem)
Message =3D "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"


With OutMail
.To =3D "dcolardelleZ...@free.fr"
.CC =3D ""
.BCC =3D ""
.Subject =3D "This is the Subject line"
.Body =3D Message
Set objOutlookAttach =3D .Attachments.Add("c:\temp\bd.xls")
.Send 'ou .Display
End With


Set OutMail =3D Nothing
Set OutApp =3D Nothing
End Sub


Merci =E0 tous ceux qui pourront m'aider....
Signaler un problème avec ce contenu

1 réponse

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
MichDenis
Un supplément de réponse sur le fil de ton message d'hier


"kanasurf" a écrit dans le message de news:

Bonjour à tous.

J'utilise une macro qui me permet d'envoyer des mail automatiquement.
J'ai défini un formulaire dans outlook qui me permet de supprimer la
fonction "Répondre" lorsque j'envoie un mail. C'est à dire que la
personne qui recoit ce mail ne puisse pas me le retourner.

J'aimerai que ce formulaire s'applique aux messages qu'envoie mon
programme ou pouvoir dans mon code, enlever la fonction "Répondre" aux
mails envoyés.


Mon programme est du type:
Sub EnvoiCourrierOutlook2003()
Dim OutApp As Object
Dim OutMail As Object
Dim Message As String
Dim objOutlookAttach


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
Message = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"


With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = Message
Set objOutlookAttach = .Attachments.Add("c:tempbd.xls")
.Send 'ou .Display
End With


Set OutMail = Nothing
Set OutApp = Nothing
End Sub


Merci à tous ceux qui pourront m'aider....