Ik heb in vb.net een klein programmaatje gemaakt waarmee je een email kunt ver zenden. Emailadres invullen en eventueel een bestandsnaam als bijlage (beide textbox) op de button drukken en de mail wordt verstuurd. Werkt perfect maar…
Als outlook wordt aangeroepen vanuit een ander programma kan dat programma er voor zorgen dat er een nieuw mail in outlook word geopend met daarin het emailadres van de begunstigde alvast ingevuld (en ook eventuele bijlage). Dit zou ik graag ook willen als mijn emailprogramma word aangeroepen.
Alvast bedankt!
Als outlook wordt aangeroepen vanuit een ander programma kan dat programma er voor zorgen dat er een nieuw mail in outlook word geopend met daarin het emailadres van de begunstigde alvast ingevuld (en ook eventuele bijlage). Dit zou ik graag ook willen als mijn emailprogramma word aangeroepen.
Alvast bedankt!
Code:
Imports System.Net
Imports System.Net.Mail
Public Class MainEmailClient
Private WithEvents objEmailVerzenden As New SmtpClient("mail.kpnmail.nl")
Dim strNaamAfzender As String = "Afzender B.V."
Private Sub btnVerzenden_Click(sender As System.Object, e As System.EventArgs) Handles btnVerzenden.Click
Dim objEmailBericht As New MailMessage
'Maak het bericht
With objEmailBericht
'Afzender
.From = New MailAddress("emailadres@kpnmail.nl", strNaamAfzender)
'Adres waar bericht heen moet
.To.Add(
New MailAddress(Me.txtEmailadres.Text, Me.txtEmailadres.Text))
.Subject = "Werkbonnen naar aanleiding van ons bezoek"
'Bericht
.Body = "Inhoud van het bericht"
'Stel prioriteit in
.Priority = MailPriority.Normal
'Voeg bijlage toe
.Attachments.Add(New Attachment(Me.txtBijlage.Text))
End With
Try
'Verstuur de mail
With objEmailVerzenden
.Credentials = New NetworkCredential("emailadres@kpnmail.nl", "geheim")
.Port = 25
'.EnableSsl = True
.SendAsync(objEmailBericht, "Bericht is verzonden.")
End With
Catch ex As Exception
MessageBox.Show(ex.InnerException.ToString, ex.Message.ToString)
End Try
End Sub
Private Sub objEmailVerzenden_SendCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) _
Handles objEmailVerzenden.SendCompleted
Me.lblStatus.Text = e.UserState.ToString '& " " & e.Error.ToString & " " & e.Cancelled.ToString
End Sub
Laatst bewerkt: