Bonjour tout le monde,
Je viens de développer une application de gestion de bâtiment pour un de mes clients en vb6
Le problème c'est que je dois envoyer des mails avec pieces jointes.
Le code que j'ai utilisé est le suivant:
Set objMessage = CreateObject("CDO.Message" )
objMessage.Subject = "le sujet en question "
objMessage.From = "moi@maboite.fr"
objMessage.To = "lui@saboite.fr"
objMessage.TextBody = "texte dans le corps de message"
objMessage.AddAttachment "c:\fichier.txt"
objMessage.Send
est ce que je dois faire une configuration de mon serveur local SMTP? si oui comment faire pour le paramétrage de ce serveur
Bonjour,
Voila le code pour ajouter une pièce jointe à un mail:
'declaration
Dim att AsString
Dim at As Attachment
'le boutton de parcour
PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'afin de parcourir pour attacher un fichier
Me.OpenFileDialog1.ShowDialog()
Try
att = Me.OpenFileDialog1.FileName
Dim s AsInteger = Me.OpenFileDialog1.FileName.LastIndexOf("")
at = New Attachment(att)
'textbox5 est le chemin où l'on recupère le fichier à attacher
TextBox5.Text = TextBox5.Text &" "&Me.OpenFileDialog1.FileName.Substring(s + 1)
Catch ex As Exception
MsgBox(" 3 : "& ex.Message)
EndTry
EndSub
'ajouter ses 2 instructions à la fonction d’envoie d’email
at = New Attachment(att)
email.Attachments.Add(at)
