none
Envoie et Reception Automatisee de fichiers vers et depuis une adesse mail via programme vb RRS feed

  • Question

  • Bonjour
    je suis entrain de développer une application de gestion de stock et d'interventions d'entretien et de réparation avec vb-access et je veux que l'application me permette aussi l'envoie automatique d'une table de la base vers une adresse mail (par exemple une adresse sur hotmail)
    vendredi 23 octobre 2009 00:53

Réponses

  • Vola pour l'envoi d'un fichier en pièce jointe d'un mail


    Imports System.Net.Mail

    Private Sub mail(ByVal destinataire As String, ByVal fichier As String)

            Dim mailMsg As New MailMessage()
            Dim attachement As New System.Net.Mail.Attachment(fichier)

            With mailMsg
                .From = New System.Net.Mail.MailAddress("toto@toto.org")
                .Subject = "Prise en charge d'un élève"
                .Body = "Vous trouverez ci joint les 2 fiches concernant l'élève que vous avez accepté de prendre en charge" & vbCrLf & "Nous vous remercions de votre aide précieuse." _
                & vbCrLf & vbCrLf & "La présidente" _
                & vbCrLf & "Toto"
                .Attachments.Add(attachement)
                .To.Add(destinataire)
                .Bcc.Add("tutu@club.fr")
            End With
        
            Windows.Forms.Cursor.Current = Cursors.WaitCursor
            Try
                clientSMTP.Send(mailMsg)

            Catch exp As Exception
                MessageBox.Show("Le problème suivant  est survenu " & _
                    "pendant l'envoi de votre message: " & exp.Message, _
                    Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
                If My.Computer.FileSystem.FileExists(fichier) Then
                    My.Computer.FileSystem.DeleteFile(fichier)
                End If
            End Try
            '     transmit.Close()
            Windows.Forms.Cursor.Current = Cursors.Arrow
            My.Computer.Audio.Play("c:\Windows\Media\ding.wav")

        End Sub
    F. Palangié
    vendredi 23 octobre 2009 13:29