Hallo,
ik heb in vb.net een e-mail applicatie geprogrammeerd om een email te kunnen verzenden, zeg maar outlook nagebouwd. maar nu wil ik diezelfde applicatie gebruiken om de gegevens in te voeren of in mijn geval uit een DB te halen, maar dan als je op verzenden klikt dat ie MS Outlook start en de ingevoerde gegevens vanuit mijn applicatie overneemt naar MS Outlook en dat ik de e-mail via MS Outlook verstuurt i.p.v. via mijn applicatie. Ik ben al een aantal uurtjes aan het zoeken en heb wel iets gevonden maar nog niet dat outlook wordt gestart enzo.
Ik zal hieronder de code laten zien die ik al heb:
Imports Extensibility
Imports System.Reflection
Imports System.Runtime.InteropServices
Imports Outlook = Microsoft.Office.Interop.Outlook
Imports Microsoft.Office.Core
Imports Microsoft.Win32
Private Sub btnVerzenden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerzenden.Click
Dim outApp As Outlook._Application
outApp = New Outlook.Application()
Dim objNS As Outlook._NameSpace = outApp.Session
Dim objFolder As Outlook.MAPIFolder
objFolder = objNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts)
Dim oMailItem As Outlook._MailItem
oMailItem = outApp.CreateItem(Outlook.OlItemType.olMailItem)
oMailItem.To = txtEmail.Text
oMailItem.CC = txtEmailCC.Text
oMailItem.Subject = txtOnderwerp.Text
oMailItem.Body = txtBericht.Text
Dim sBodyLen As String = oMailItem.Body.Length
Dim oAttachs As Outlook.Attachments = oMailItem.Attachments
Dim oAttach As Outlook.Attachment
oAttach = oAttachs.Add(txtAttach.Text, , sBodyLen + 1, "Bijlage")
oMailItem.SaveSentMessageFolder = objFolder
oMailItem.Save()
oMailItem.Send()
End Sub
Kan iemand mij met dit probleem op weg helpen of zeggen wat er niet goed gaat.
bijvoorbaat dank
vb.net geeft zelf geen foutmeldingen als ik op verzenden klik.
ik heb in vb.net een e-mail applicatie geprogrammeerd om een email te kunnen verzenden, zeg maar outlook nagebouwd. maar nu wil ik diezelfde applicatie gebruiken om de gegevens in te voeren of in mijn geval uit een DB te halen, maar dan als je op verzenden klikt dat ie MS Outlook start en de ingevoerde gegevens vanuit mijn applicatie overneemt naar MS Outlook en dat ik de e-mail via MS Outlook verstuurt i.p.v. via mijn applicatie. Ik ben al een aantal uurtjes aan het zoeken en heb wel iets gevonden maar nog niet dat outlook wordt gestart enzo.
Ik zal hieronder de code laten zien die ik al heb:
Imports Extensibility
Imports System.Reflection
Imports System.Runtime.InteropServices
Imports Outlook = Microsoft.Office.Interop.Outlook
Imports Microsoft.Office.Core
Imports Microsoft.Win32
Private Sub btnVerzenden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerzenden.Click
Dim outApp As Outlook._Application
outApp = New Outlook.Application()
Dim objNS As Outlook._NameSpace = outApp.Session
Dim objFolder As Outlook.MAPIFolder
objFolder = objNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts)
Dim oMailItem As Outlook._MailItem
oMailItem = outApp.CreateItem(Outlook.OlItemType.olMailItem)
oMailItem.To = txtEmail.Text
oMailItem.CC = txtEmailCC.Text
oMailItem.Subject = txtOnderwerp.Text
oMailItem.Body = txtBericht.Text
Dim sBodyLen As String = oMailItem.Body.Length
Dim oAttachs As Outlook.Attachments = oMailItem.Attachments
Dim oAttach As Outlook.Attachment
oAttach = oAttachs.Add(txtAttach.Text, , sBodyLen + 1, "Bijlage")
oMailItem.SaveSentMessageFolder = objFolder
oMailItem.Save()
oMailItem.Send()
End Sub
Kan iemand mij met dit probleem op weg helpen of zeggen wat er niet goed gaat.
bijvoorbaat dank
vb.net geeft zelf geen foutmeldingen als ik op verzenden klik.