OVH Cloud OVH Cloud

Message de sécurité Outlook

31 réponses
Avatar
Gilgamesh
Bonjour,

j'ai trouvé ici (papou, qu'il en soit remercié) une petite procédure
pour envoyer un msg automatique via Outlook.

Ça marche nickel sauf que... A chaque fois j'ai le message suivant, et
c'est un peu lourd :

----------------------------------
Un programme tente d'envoyer automatiquement des courriers en votre nom
L'autorisez vous à poursuivre

Si cette action est inattendue, il se peut qu'il s'agisse d'un virus :
dans ce cas choisissez Non

----------------------------------

J'ai tout désactivé (Norton, Sécurité macro, sécurité Outlook) mais rien
à faire.

Qualqu'un aurait la solution ?

merci

10 réponses

1 2 3 4
Avatar
Bonsour ® JièL,
pour ta culture :
http://www.anjou-quebec.asso.fr/Parlure%
20quebecoise/Guide%20du%20parler%20quebecois.htm

notament la première phrase dédiée à "El Cordoba postale
del Gineste"
;o)))

et aussi :
http://perso.wanadoo.fr/alain.perron/Parlurequebecoise.htm

http://membres.lycos.fr/seynav/joual.html

;o)))
@+

-----Message d'origine-----
Salut Clément

Le 17/11/2004 20:05 vous avez écrit ceci :
Pas banal pantoute, ce site.


ca veut dire quoi ce mot "pantoute" ? je connais
vraiment pas


--
JièL Pas en toutes
.




Avatar
® © ¿
coudonc, j'ai trouvé ça aussi :
http://membres.lycos.fr/ozelles/parlure_11.htm

MAUDITS FRANÇAIS
Paroles et musique : Lynda Lemay 2000 « Du coq à l'âme »

Y parlent avec des mots précis pis y prononcent toutes
leurs syllabes
À tout bout d'champ, y s'donnent des bis; y passent leurs
grandes journées à table
Y ont des menus qu'on comprend pas; y boivent du vin
comme si c'tait d'l'eau
Y mangent du pain pis du foie gras en trouvant l'moyen
d'pas être gros
Y font des manifs aux quarts d'heure à tous les mautadits
coins d'rue
Tous les taxis ont des chauffeurs qui roulent en fous,
qui collent au cul

Et quand y parlent de v'nir chez nous c'est pour l'hiver
ou les Indiens
Les longues promenades en Skidoo ou encore en traîneau à
chiens

Ils ont des tasses minuscules et des immenses cendriers
Y font du vrai café d'adulte; ils avalent ça en deux
gorgées

On trouve leurs gros bergers allemands et leurs p'tits
caniches chéris
Sur les planchers des restaurants, des épiceries, des
pharmacies

Y disent qu'y dînent quand y soupent et y est deux heures
quand y déjeunent
Au p'tit matin, ça sent l'yaourt; y connaissent pas les
oeufs-bacon

En fin d'soirée, c'est plus choucroute, magret d'canard
ou escargots
Tout s'déroule bien jusqu'à c'qu'on goûte à leur putain
de tête de veau

Un bout d'paupière, un bout d'gencive, un bout d'oreille,
un bout d'museau
Pour des papilles gustatives de Québécois, c'est un peu
trop

Pis y nous prennent pour un Martien quand on commande un
verre de lait
Ou quand on d'mande : « La salle de bain est à quelle
place, s'il vous plaît? »

Et quand ils arrivent chez nous, y s'prennent une tuque
et un Kanuk
Se mettent à chercher des igloos; finissent dans une
cabane à sucre
Y tombent en amour sur le coup avec nos forêts et nos
lacs
Et y s'mettent à parler comme nous; apprennent à dire : «
Tabarnak »

Et bien saoûlés au caribou, à la Molson et au gros gin
Y s'extasient sur nos ragoûts d'pattes de cochon et nos
plats d'bines

Vu qu'on n'a pas d'fromages qui puent, y s'accommodent
d'un vieux cheddar
Et y se plaignent pas trop non plus de notre p'tit café
bâtard

Quand leur séjour tire à sa fin, ils ont compris qu'ils
ont plus l'droit
De nous appeler les Canadiens alors que l'on est
Québécois
Y disent aur'voir, les yeux tout trempes; l'sirop
d'érable plein les bagages
On réalise qu'on leur ressemble; on leur souhaite bon
voyage
On est rendu qu'on donne des becs comme si on l'avait
toujours fait
Y a comme un trou dans le Québec quand partent les
maudits Français

LEXIQUE
À tout bout d'champ : continuellement
Y passent leurs grandes journées : continuellement ;o)
En trouvant l'moyen d'pas être gros : et malgré ça, ils
ne prennent pas de poids
aux quarts d'heure : continuellement (on en a des mots
pour dire « continuellement », n'est-ce pas?)
mautadits coins d'rue : maudites intersections
qui collent au cul : le devant de leur voiture touche
presque à l'arrière de la voiture qu'ils suivent
Skidoo : marque de motoneige
déjeuner, dîner, souper au Québec : déjeuner=tôt le
matin; dîner=midi; souper=entre 17h et 19h
oeufs-bacon : déjeuner traditionnel des Québécois
salle de bain : W-C; toilettes
tuque : chapeau tricoté en laine (traditionnel)
Kanuk : manteau très chaud
Tabarnak : tabernacle, prononcé à la québécoise (juron
québécois)
saoûlés (saoûls) : ivres
caribou : vin additionné de whisky
gros gin : eau-de-vie
Molson : marque de bière
ragoût de pattes de cochon : mets traditionnel québécois,
surtout dans le Temps des Fêtes
plats de bines : fèves au lard
cheddar : sorte de fromage canadien
les yeux tout trempes : les yeux mouillés; humides; avoir
la larme à l'oeil
becs : bisous
-----Message d'origine-----
Salut Clément

Le 17/11/2004 20:05 vous avez écrit ceci :
Pas banal pantoute, ce site.


ca veut dire quoi ce mot "pantoute" ? je connais
vraiment pas


--
JièL Pas en toutes
.




Avatar
Gilgamesh
Bonjour,


J'ai pris la solution de Patrick Fredin (merci à lui) qui a l'avantage
de la simplicité, mais sans copie du message envoyé sur le logiciel de
messagerie usuel de Microsoft (Outlook ou Outlook Express). En ce qui me
concerne ça m'encombrerait plutôt, donc c'est mieux.

Après avoir coché dans les références "Microsoft CDO For Exchange 2000
Library"

Sur XL :
en A1 l'adresse
en B1 le sujet
en C3 le corps du texte

il suffit de supprimer le ' devant AddAttachment pour pouvoir également
envoyer une pièce jointe. J'ai essayé et ça marche aussi.

Sub emailCDO()

Dim Message As New CDO.Message

With Message
.To = Range("A1").Value
.From = """mon nom"""
.Subject = Range("B1").Value
.TextBody = Range("C1").Value
' .AddAttachment ("c:cheminfichier.ext")
.Send
End With
Set Message = Nothing
End Sub


merci à tous

a+
Avatar
JièL Goubert
Bonjoir(c) Gilgamesh

il y a aussi cette solution sans utiliser le référencement de CDO
extrait de http://users.skynet.be/accesshome/outlook.htm#SendMailMAPI
-------------
On peut s'affranchir de référencer la bibliothèque avec la syntaxe suivante :

Sub SendMailCDO()
' Déclaration tardive ("Late Binding")
Dim Cdo_Message As Object
Set Cdo_Message = CreateObject("CDO.Message")
With Cdo_Message
.To = ""
.from = """Emetteur"""
.Subject = "Le Sujet"
.TextBody = "Le Corps du message"
'.AddAttachment ("c:cheminfichier.ext")
.Send
End With
Set Cdo_Message = Nothing
End Sub
--------------

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
***********************************************************************
Enquète sur les communautés techniques en France
http://www.sphinxonline.net/sphinxbrasil/quest-cerag/questionnaire.htm
***********************************************************************

Le 18/11/2004 10:26 vous avez écrit ceci :

Bonjour,


J'ai pris la solution de Patrick Fredin (merci à lui) qui a l'avantage
de la simplicité, mais sans copie du message envoyé sur le logiciel de
messagerie usuel de Microsoft (Outlook ou Outlook Express). En ce qui me
concerne ça m'encombrerait plutôt, donc c'est mieux.

Après avoir coché dans les références "Microsoft CDO For Exchange 2000
Library"

Sur XL :
en A1 l'adresse
en B1 le sujet
en C3 le corps du texte

il suffit de supprimer le ' devant AddAttachment pour pouvoir également
envoyer une pièce jointe. J'ai essayé et ça marche aussi.

Sub emailCDO()

Dim Message As New CDO.Message

With Message
.To = Range("A1").Value
.From = """mon nom"""
.Subject = Range("B1").Value
.TextBody = Range("C1").Value
' .AddAttachment ("c:cheminfichier.ext")
.Send
End With
Set Message = Nothing
End Sub


merci à tous

a+


Avatar
JièL Goubert
Bonjoir(c)

t'as beau te cacher, on te reconnais ;-)

Le 18/11/2004 08:49 vous avez écrit ceci :
notament la première phrase dédiée à "El Cordoba postale
del Gineste"
;o)))


Trés trés bon ;-)))

--
JièL niaise souvent à chauffer son char comme un capoté
;-)))))

Avatar
® © ¿
"j'ai des" masques plus discrets ;o)))
® © ¿
-----Message d'origine-----
Bonjoir(c)
t'as beau te cacher, on te reconnais ;-)
JièL niaise souvent à chauffer son char comme un capoté
;-)))))


Avatar
® © ¿
Bonsour ® JièL(c) "del Gineste" !!!!

pas tout à fait HS
Une mine ce site :
http://users.skynet.be/accesshome/outlook.htm

comment s'appelle la DLL :
"Microsoft Outlook x.x Object Library"
et ou se trouve-t-elle ?
je n'arrive pas à faire fonctionner certains exemples,
faute de pouvoir cocher cette référence.

Merci
@+



-----Message d'origine-----
Bonjoir(c) Gilgamesh

il y a aussi cette solution sans utiliser le
référencement de CDO

extrait de
http://users.skynet.be/accesshome/outlook.htm#SendMailMAPI

-------------
On peut s'affranchir de référencer la bibliothèque avec
la syntaxe suivante :


Sub SendMailCDO()
' Déclaration tardive ("Late Binding")
Dim Cdo_Message As Object
Set Cdo_Message = CreateObject("CDO.Message")
With Cdo_Message
.To = ""
.from = """Emetteur"""
.Subject = "Le Sujet"
.TextBody = "Le Corps du message"
'.AddAttachment ("c:cheminfichier.ext")
.Send
End With
Set Cdo_Message = Nothing
End Sub
--------------

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
*********************************************************
**************

Enquète sur les communautés techniques en France
http://www.sphinxonline.net/sphinxbrasil/quest-
cerag/questionnaire.htm

*********************************************************
**************


Le 18/11/2004 10:26 vous avez écrit ceci :

Bonjour,


J'ai pris la solution de Patrick Fredin (merci à lui)
qui a l'avantage


de la simplicité, mais sans copie du message envoyé
sur le logiciel de


messagerie usuel de Microsoft (Outlook ou Outlook
Express). En ce qui me


concerne ça m'encombrerait plutôt, donc c'est mieux.

Après avoir coché dans les références "Microsoft CDO
For Exchange 2000


Library"

Sur XL :
en A1 l'adresse
en B1 le sujet
en C3 le corps du texte

il suffit de supprimer le ' devant AddAttachment pour
pouvoir également


envoyer une pièce jointe. J'ai essayé et ça marche
aussi.



Sub emailCDO()

Dim Message As New CDO.Message

With Message
.To = Range("A1").Value
.From = """mon nom"""
.Subject = Range("B1").Value
.TextBody = Range("C1").Value
' .AddAttachment ("c:cheminfichier.ext")
.Send
End With
Set Message = Nothing
End Sub


merci à tous

a+
.





Avatar
JièL Goubert
Bonjoir(c) ® © ¿ "le chti'" ;-)

Désolé, le concepteur du site (l'original s'entend) a disparue corps et bien
(on l'attend quand même un de ces jours), une personne (3stone) l'a repris,
mais je ne saurais t'aider...

La personne qui a repris se site pourras peut-être t'en dire plus, il
faudrait que tu poses la question sur le forum Access (tu sais, le truc
qu'est pas comme le marteau ;-DDDDD) enfin... si tu n'as pas peur d'être
mordu par ces fous qui utilisent autre chose qu'un mart... euh.. tableur
pour gérer des données ;-))))))))

Par contre le retour m'intéresse au cas ou je conseillerais encore ce site.
Merci

A+

--
JièL Pantoute de la Gineste ;-))))))

Le 18/11/2004 16:48 vous avez écrit ceci :
Bonsour ® JièL(c) "del Gineste" !!!!

pas tout à fait HS
Une mine ce site :
http://users.skynet.be/accesshome/outlook.htm

comment s'appelle la DLL :
"Microsoft Outlook x.x Object Library"
et ou se trouve-t-elle ?
je n'arrive pas à faire fonctionner certains exemples,
faute de pouvoir cocher cette référence.

Merci
@+




-----Message d'origine-----
Bonjoir(c) Gilgamesh

il y a aussi cette solution sans utiliser le


référencement de CDO

extrait de


http://users.skynet.be/accesshome/outlook.htm#SendMailMAPI

-------------
On peut s'affranchir de référencer la bibliothèque avec


la syntaxe suivante :

Sub SendMailCDO()
' Déclaration tardive ("Late Binding")
Dim Cdo_Message As Object
Set Cdo_Message = CreateObject("CDO.Message")
With Cdo_Message
.To = ""
.from = """Emetteur"""
.Subject = "Le Sujet"
.TextBody = "Le Corps du message"
'.AddAttachment ("c:cheminfichier.ext")
.Send
End With
Set Cdo_Message = Nothing
End Sub
--------------

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
*********************************************************


**************

Enquète sur les communautés techniques en France
http://www.sphinxonline.net/sphinxbrasil/quest-


cerag/questionnaire.htm

*********************************************************


**************

Le 18/11/2004 10:26 vous avez écrit ceci :

Bonjour,


J'ai pris la solution de Patrick Fredin (merci à lui)



qui a l'avantage

de la simplicité, mais sans copie du message envoyé



sur le logiciel de

messagerie usuel de Microsoft (Outlook ou Outlook



Express). En ce qui me

concerne ça m'encombrerait plutôt, donc c'est mieux.

Après avoir coché dans les références "Microsoft CDO



For Exchange 2000

Library"

Sur XL :
en A1 l'adresse
en B1 le sujet
en C3 le corps du texte

il suffit de supprimer le ' devant AddAttachment pour



pouvoir également

envoyer une pièce jointe. J'ai essayé et ça marche



aussi.

Sub emailCDO()

Dim Message As New CDO.Message

With Message
.To = Range("A1").Value
.From = """mon nom"""
.Subject = Range("B1").Value
.TextBody = Range("C1").Value
' .AddAttachment ("c:cheminfichier.ext")
.Send
End With
Set Message = Nothing
End Sub


merci à tous

a+


.




--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
***********************************************************************
Enquète sur les communautés techniques en France
http://www.sphinxonline.net/sphinxbrasil/quest-cerag/questionnaire.htm
***********************************************************************



Avatar
isabelle
bonjour chti,


Bonsour ® JièL(c) "del Gineste" !!!!
comment s'appelle la DLL :
"Microsoft Outlook x.x Object Library"
et ou se trouve-t-elle ?


recherche le fichier msoutl.olb
il devrait se trouver à
c:Program FilesMicrosoft OfficeOffice10

isabelle

Avatar
Clément Marcotte
Bonjour,

Je viens dans "mettre une autre" dans le Forum Word. Avant que tu ne
pose la question, cela a le sens d'incomplet ou de négligent.

(Virer les coins rond)
1 2 3 4