Envoi message via Outlook depuis une entreprise

Bonjour,

Depuis mon domicile lorsque je teste mon logiciel avec Outlook les e-mails fonctionnent bien.

Depuis mon lieur de travail j’ai ce message (Un programme tente d’envoyer un message électronique en votre nom….etc)….. je dois Accepter ou Refuser.

Puis-je à l’aide d’une ligne de code éviter ce message ?

Merci de votre aide...

Bruno

Ce message n'est pas désactivable par ligne de code.
Le seul moyen que l'on avait trouvé à l'époque était de remplacer une dll sur tous les ordinateurs où le programme était déployé.
Si vous voulez envoyer des emails, le plus simple est d'utiliser MailMessage et SmtpClient.

Bonjour,

Pour ce qui est d'utiliser MailMessage, voici un large extrait de code d'une application en ordre :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
 
Imports System.Net.Mail
Imports System.Text
 
Public Class FMailAGogo
 
 
    Private Sub BEnvoi_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BEnvoi.Click
 
        Dim Mail As MailMessage
        Dim smtp As SmtpClient
        Dim Expediteur As String
        Dim Destinataire As String
 
        Try
            smtp = New SmtpClient("relay.proximus.be") ' Désignation d'un serveur SMTP autorisé sur l'ordi
            Mail = New MailMessage
            Mail.SubjectEncoding = UTF8Encoding.UTF8 ' Format de codage de l'objet
            Mail.BodyEncoding = UTF8Encoding.UTF8 ' Format de codage du message
            Mail.Subject = TObjet.Text  ' L'objet du message dans la TextBox
            Mail.Body = RTBMessage.Text ' Le message est écrit dans une RichTextBox
 
            Expediteur = "phr@skynet.be"
            Mail.From = New MailAddress(Expediteur) ' Désignation de l'expéditeur
 
            Destinataire = "scxstr@gmail.com"
            Mail.To.Add(New MailAddress(Destinataire)) ' Désignation de destinataire
 
            ''' !!! si nécessaire ....
            'smtp.Port = "25"
            'smtp.Credentials = New System.Net.NetworkCredential("Phil Rob", "PWD")
            'smtp.EnableSsl = False ' Chez moi, c'est FALSE
 
            For Each S As String In LBAttachement.Items ' Les CheminsEtNomsCompletsDesFichiers sont listés dans un ListBox
                Dim Attache As New Attachment(S)
                Mail.Attachments.Add(Attache)
            Next
 
            smtp.Send(Mail) ' Envoi du message
 
            Mail.Dispose()
 
        Catch ex As ApplicationException
            MessageBox.Show(ex.Message)
        Finally
            smtp = Nothing
            Try
                Mail.Dispose()
            Catch
            End Try
            Mail = Nothing
        End Try
 
    End Sub
 
    Private Sub BAttachement_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BAttachement.Click
        OFDDonnees.Title = "Recherche des fichiers à joindre"
        OFDDonnees.Filter = "*.*|*.*"
        OFDDonnees.Multiselect = True
        OFDDonnees.FileName = String.Empty
        OFDDonnees.ShowDialog()
        For Each S As String In OFDDonnees.FileNames
            LBAttachement.Items.Add(S)
        Next
    End Sub

Bon travail,