Risque d'usurpation d'identité

[comme de bien entendu]

Bonjour,

J'ai testé en VBA la librairie CDO.
Et je m'apercois que je peux envoyer des mails de n'importe qui.
Autrement dit je peux envoyer un EMail à quelqu'un en lui
faisant croire qu'il vient d'une tierce personne.
N'y a t'il pas de protection contre cela ?
Y a t'il un recours contre ce genre d'action ?

Merci d'avance de vos réponses.

Un exemple ci dessous :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub Command1_Click()
Dim iMsg As New CDO.Message
Dim iConf As New CDO.Configuration
Dim Flds As ADODB.Fields
Set Flds = iConf.Fields
With Flds
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "un serveur SMTP" ' Si vous utilisez la librairie CDO pour exchange
'.Item(cdoSMTPServerName) = "un serveur SMTP" ' Si vous utilisez la librairie CDO pour Windows 2000
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "Le nom du compte de la messagerie"
.Item(cdoSendPassword) = "Votre mot de passe"
.Item(cdoURLProxyServer) = "server:80"
.Item(cdoURLProxyBypass) = "<local>"
.Item(cdoURLGetLatestVersion) = True
.Update
End With
With iMsg
Set .Configuration = iConf
.To = """Nom quelconque"" <Adresse email>"
.From = """Nom quelconque"" <adresse email>" ' ON PEUT METTRE CE QUE L'ON VEUT
.Subject = "Ca marche !"
.TextBody = "sans probleme"
'.AddAttachment "C:\un fichier quelconque"
.Send
End With
End Sub