Liebe COmmunity
Ich stehe gerade wieder auf dem Schlauch.
Ich habe eine Funktion gemacht mit welcher ich eine E-Mail senden kann.
Nun möchte ich auf den Button_klick nicht die Email gleich senden sondern , dass das Outlook aufgeht mit den zuvor eingegebenen Paramtern (sendTo,Subject,Message).
Damit der sender seine E-Mail noch einmal überprüfen kann.
EIDT::
LÖSUNG:
Ich stehe gerade wieder auf dem Schlauch.
Ich habe eine Funktion gemacht mit welcher ich eine E-Mail senden kann.
Nun möchte ich auf den Button_klick nicht die Email gleich senden sondern , dass das Outlook aufgeht mit den zuvor eingegebenen Paramtern (sendTo,Subject,Message).
Damit der sender seine E-Mail noch einmal überprüfen kann.
VB.NET-Quellcode
- Public Sub send(ByVal senTo As String)
- Try
- ' Create an Outlook application.
- Dim oApp As Outlook._Application
- oApp = New Outlook.Application()
- ' Create a new MailItem.
- Dim oMsg As Outlook._MailItem
- oMsg = CType(oApp.CreateItem(Outlook.OlItemType.olMailItem), Outlook._MailItem)
- oMsg.Subject = "Send Attachment Using OOM in Visual Basic .NET"
- oMsg.Body = "Hello World" & vbCr & vbCr
- oMsg.To = senTo
- Dim sBodyLen As String = CStr(oMsg.Body.Length)
- Dim oAttachs As Outlook.Attachments = oMsg.Attachments
- Dim oAttach As Outlook.Attachment
- ' Send
- oMsg.Send()
- MessageBox.Show("E-Mail wurde gesendet")
- ' Clean up
- oApp = Nothing
- oMsg = Nothing
- oAttach = Nothing
- oAttachs = Nothing
- Catch ex As Exception
- End Try
- End Sub
EIDT::
LÖSUNG:
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Lingo“ ()