Lorsque j'envoie automatiquement un message et un document=20
=E0 une URL, j'ai les deux messages suivants :=20
1. <Un programme essaie d'acc=E9der aux adresses de=20
messagerie....> avec Recipients.Add,
2. <Un programme tente d'envoyer automatiquement des=20
couuriers en votre nom...> avec Send.
Pourriez-vous me dire quels param=E8tres doivent =EAtre=20
temporairement modifi=E9s (par programmation) pour ne plus=20
subir l'affichage de ces messages ?
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
JièL Goubert
Bonjoir(c) xyzDaniel
Le 19/05/2004 17:45 vous nous disiez ceci :
Bonjour à tous,
Pourriez-vous me dire quels paramètres doivent être temporairement modifiés (par programmation) pour ne plus subir l'affichage de ces messages ?
un copier coller de plus de la macro à Anor ;-)
Non, la désactivation n'est pas possible. 2 Solutions : refaire ta macro en utilisant un autre mode d'accés voici une copie d'une macro de Anor ------------ Pas de référence à cocher du moment que la cdosys.dll ou cdoex.dll figure dans le dossier système. Ah oui, inconvénient, le message n'est pas sauvegardé dans les éléments envoyés, ça doit être faisable mais pas encore trouvé comment passer l'objet de cdo à outlook.mailitem (pas trop cherché d'ailleurs)
Le fichier c:fichier.txt doit exister bien évidemment, avec des adresses mail valides, les unes sous les autres. Toujours Alt+F11, puis coller :
Option Explicit
Sub PublipostageCDO() On Error Resume Next Dim txtLine As String Dim LeFichier As String Dim F As Integer
' Déclaration tardive ("Late Binding") Dim CDO_Message As Object
LeFichier = "c:fichier.txt" F = FreeFile Open LeFichier For Input As #F Do While Not EOF(F) Line Input #F, txtLine If InStr(1, txtLine, "@") > 1 Then
With CreateObject("CDO.Message")
.To = txtLine .from = """Emetteur""" .Subject = "L'objet du message CDO" .TextBody = "Le Corps du message CDO" '.AddAttachment ("c:fichier.txt") .Send End With
End If Loop Close #F Set CDO_Message = Nothing End Sub --------------- tu en trouveras d'autres ici : http://memoaccess.free.fr/outlook.htm
ou bien utiliser un "truc" comme "clickyes" qui clique sur le bouton Oui à ta place (voir dans la FAQ Outlook, téléchargement), mais c'est pas trés clean.
Ou bien une fiche explicative ?
peut-être ici OL2002 : Informations destinées aux développeurs concernant les fonctionnalités de sécurité du courrier électronique http://support.microsoft.com/?id)0500
merci beaucoup.
-- La FAQ Outlook est la : http://faq.outlook.free.fr JièL / Jean-Louis GOUBERT Co-auteur de "Internet + de 1 000 trucs de pros" chez Micro Application http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_trucs_de_pros.htm
Bonjoir(c) xyzDaniel
Le 19/05/2004 17:45 vous nous disiez ceci :
Bonjour à tous,
Pourriez-vous me dire quels paramètres doivent être
temporairement modifiés (par programmation) pour ne plus
subir l'affichage de ces messages ?
un copier coller de plus de la macro à Anor ;-)
Non, la désactivation n'est pas possible.
2 Solutions : refaire ta macro en utilisant un autre mode d'accés
voici une copie d'une macro de Anor
------------
Pas de référence à cocher du moment que la cdosys.dll ou cdoex.dll figure
dans le dossier
système.
Ah oui, inconvénient, le message n'est pas sauvegardé dans les éléments
envoyés, ça doit être
faisable
mais pas encore trouvé comment passer l'objet de cdo à outlook.mailitem (pas
trop cherché
d'ailleurs)
Le fichier c:fichier.txt doit exister bien évidemment, avec des adresses
mail valides, les unes
sous les autres.
Toujours Alt+F11, puis coller :
Option Explicit
Sub PublipostageCDO()
On Error Resume Next
Dim txtLine As String
Dim LeFichier As String
Dim F As Integer
' Déclaration tardive ("Late Binding")
Dim CDO_Message As Object
LeFichier = "c:fichier.txt"
F = FreeFile
Open LeFichier For Input As #F
Do While Not EOF(F)
Line Input #F, txtLine
If InStr(1, txtLine, "@") > 1 Then
With CreateObject("CDO.Message")
.To = txtLine
.from = """Emetteur""<emetteur@domaine.com>"
.Subject = "L'objet du message CDO"
.TextBody = "Le Corps du message CDO"
'.AddAttachment ("c:fichier.txt")
.Send
End With
End If
Loop
Close #F
Set CDO_Message = Nothing
End Sub
---------------
tu en trouveras d'autres ici : http://memoaccess.free.fr/outlook.htm
ou bien utiliser un "truc" comme "clickyes" qui clique sur le bouton Oui à
ta place (voir dans la FAQ Outlook, téléchargement), mais c'est pas trés clean.
Ou bien une fiche explicative ?
peut-être ici
OL2002 : Informations destinées aux développeurs concernant les
fonctionnalités de sécurité du courrier électronique
http://support.microsoft.com/?id)0500
merci beaucoup.
--
La FAQ Outlook est la : http://faq.outlook.free.fr
JièL / Jean-Louis GOUBERT
Co-auteur de "Internet + de 1 000 trucs de pros" chez Micro Application
http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_trucs_de_pros.htm
Pourriez-vous me dire quels paramètres doivent être temporairement modifiés (par programmation) pour ne plus subir l'affichage de ces messages ?
un copier coller de plus de la macro à Anor ;-)
Non, la désactivation n'est pas possible. 2 Solutions : refaire ta macro en utilisant un autre mode d'accés voici une copie d'une macro de Anor ------------ Pas de référence à cocher du moment que la cdosys.dll ou cdoex.dll figure dans le dossier système. Ah oui, inconvénient, le message n'est pas sauvegardé dans les éléments envoyés, ça doit être faisable mais pas encore trouvé comment passer l'objet de cdo à outlook.mailitem (pas trop cherché d'ailleurs)
Le fichier c:fichier.txt doit exister bien évidemment, avec des adresses mail valides, les unes sous les autres. Toujours Alt+F11, puis coller :
Option Explicit
Sub PublipostageCDO() On Error Resume Next Dim txtLine As String Dim LeFichier As String Dim F As Integer
' Déclaration tardive ("Late Binding") Dim CDO_Message As Object
LeFichier = "c:fichier.txt" F = FreeFile Open LeFichier For Input As #F Do While Not EOF(F) Line Input #F, txtLine If InStr(1, txtLine, "@") > 1 Then
With CreateObject("CDO.Message")
.To = txtLine .from = """Emetteur""" .Subject = "L'objet du message CDO" .TextBody = "Le Corps du message CDO" '.AddAttachment ("c:fichier.txt") .Send End With
End If Loop Close #F Set CDO_Message = Nothing End Sub --------------- tu en trouveras d'autres ici : http://memoaccess.free.fr/outlook.htm
ou bien utiliser un "truc" comme "clickyes" qui clique sur le bouton Oui à ta place (voir dans la FAQ Outlook, téléchargement), mais c'est pas trés clean.
Ou bien une fiche explicative ?
peut-être ici OL2002 : Informations destinées aux développeurs concernant les fonctionnalités de sécurité du courrier électronique http://support.microsoft.com/?id)0500
merci beaucoup.
-- La FAQ Outlook est la : http://faq.outlook.free.fr JièL / Jean-Louis GOUBERT Co-auteur de "Internet + de 1 000 trucs de pros" chez Micro Application http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_trucs_de_pros.htm
