Hallo,
ist es möglich, übe VB.NET auf ein Postfach eines Benutzers im Outlook 365 zuzugreifen?
Bisher ist es mir gelungen, per SMTP-Zugriff Mails zu versenden.
siehe Code-Ausschnitt:
Ich verwende VB.NET 2015 mit dem Framework 4.5.2.
Mein Problem:
- ist es überhaupt möglich?
- Was muss ich über Imports hinzufügen?
Bedanke mich im Voraus!
CodeTags gesetzt ~VaporiZed
*Topic verschoben*
ist es möglich, übe VB.NET auf ein Postfach eines Benutzers im Outlook 365 zuzugreifen?
Bisher ist es mir gelungen, per SMTP-Zugriff Mails zu versenden.
siehe Code-Ausschnitt:
VB.NET-Quellcode
- Public Sub SendMailSMTP(theSubject As String, theAdr As String, theText As String, theAttm As String)
- Dim Msg As New MailMessage
- Dim myCreds As New System.Net.NetworkCredential
- Dim mySmtpsrv As New SmtpClient()
- Dim myErrorMsg As String
- myCreds.UserName = "support@gwg-reutlingen.de" 'Absender Emailadresse
- myCreds.Password = "XXXXXX" 'Passwort (Vor dem Kompilieren einsetzen!), / Letzte Aktualisierung am 29.04.2021, Goede
- Msg.IsBodyHtml = False 'HTML deaktiviert oder mit True aktivieren
- mySmtpsrv.EnableSsl = True 'SSL aktivieren oder mit False deaktivieren
- mySmtpsrv.Host = "smtp.office365.com" 'SMTP Server
- mySmtpsrv.Port = 587 'Port des SMTP Servers
- mySmtpsrv.UseDefaultCredentials = False
- mySmtpsrv.Credentials = myCreds
- Try
- Msg.From = New MailAddress("support@gwg-reutlingen.de") 'Absender festlegen. Die eigene Emailadresse
- Msg.To.Add(theAdr) 'Empfänger
- Msg.Subject = theSubject 'Betreff der Email
- Msg.Body = theText 'Text der Email
- Msg.Attachments.Add(New Attachment(theAttm))
- mySmtpsrv.Send(Msg)
- myErrorMsg = ""
- Catch ex As Exception
- myErrorMsg = Err.Number & Chr(10) & ex.Message & ex.StackTrace.ToString
- MsgBox(myErrorMsg) 'Wenn ein Fehler auftritt wird dieser registriert
- End Try
- End Sub
Ich verwende VB.NET 2015 mit dem Framework 4.5.2.
Mein Problem:
- ist es überhaupt möglich?
- Was muss ich über Imports hinzufügen?
Bedanke mich im Voraus!
CodeTags gesetzt ~VaporiZed
*Topic verschoben*
