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
66
67
68
69
70
| Imports System.Net.Mail
Imports System.IO
Imports System.Net.Mime
Partial Class Mail_Default
Inherits System.Web.UI.Page
Protected Sub btnEnvoyer_Click(sender As Object, e As System.EventArgs) Handles btnEnvoyer.Click
' Construction du message qui contient un TextBox Nom, TextBox Prénom, TextBox Email et TextBox Commentaire
' txtMail.Text contient l'adresse Mail de l'expéditeur
' "contact@monsite.com" est le destinataire (le webmaster du site www.@monsite.com)
Dim message As New System.Net.Mail.MailMessage(txtMail.Text, "webmaster@monsite.com")
'l'objet du message
message.Subject = "[Demande d'informations]"
'le corps du message
message.Body = "[Demande transmise par le site www.monsite.com]" _
& vbCr & txtNom.Text.ToUpper _
& vbCr & txtPrenom.Text _
& vbCr & txtMail.Text _
& vbCr & txtCommentaire.Text
Dim Fichier As String = ""
' Créer le fichier à joindre avec le message .
Dim data As New Attachment(Fichier, MediaTypeNames.Application.Octet)
' Ajouter les propriétés du fichier.
Dim disposition As ContentDisposition = data.ContentDisposition
disposition.CreationDate = System.IO.File.GetCreationTime(Fichier)
disposition.ModificationDate = System.IO.File.GetLastWriteTime(Fichier)
disposition.ReadDate = System.IO.File.GetLastAccessTime(Fichier)
' Add the file attachment to this e-mail message.
message.Attachments.Add(data)
Dim cheminPieceJointe As FileUpload = fileUploadChemin
'Comment concertir ce FileUpload en String ?
'Comment sauver le chemin du fichier contenu dans cet FileUpload ,
'Envoi du message
Dim smtp As New SmtpClient
smtp.Host = "localhost"
smtp.Send(message)
' comment ajouter ici l'envoi de la pièce jointe ?
Try
smtp.Send(message)
Catch ex As Exception
Console.WriteLine("Exception(): {0}", ex.ToString())
End Try
' Afficher les proprités de la pièce jointe.
Dim cd As ContentDisposition = data.ContentDisposition
Console.WriteLine("Content disposition")
Console.WriteLine(cd.ToString())
Console.WriteLine("File {0}", cd.FileName)
Console.WriteLine("Size {0}", cd.Size)
Console.WriteLine("Creation {0}", cd.CreationDate)
Console.WriteLine("Modification {0}", cd.ModificationDate)
Console.WriteLine("Read {0}", cd.ReadDate)
Console.WriteLine("Inline {0}", cd.Inline)
Console.WriteLine("Parameters: {0}", cd.Parameters.Count)
For Each d As DictionaryEntry In cd.Parameters
Console.WriteLine("{0} = {1}", d.Key, d.Value)
Next
data.Dispose()
End Sub
End Class |
Comment ajouter une pièce jointe à un message en code visual basic
Répondre avec citation
Envoyé par Shadam
Partager