Я разрабатываю Windows с использованием vb.net, пытаюсь отправить электронное письмо через Outlook.Мой код работает нормально, но как только он достигает строки send (), появляется всплывающее окно Azure Information Protection для выбора чувствительности электронной почты (Public, Confidential, ... и т. Д.), Поэтому электронное письмо не будет отправлено до тех пор, пока пользовательвыберите.
Я пытался ( OutlookMessage.Sensitivity = outlook.OlSensitivity.olNormal ), но все же нужен какой-то один, чтобы выбрать классификацию во всплывающем окне Azure, полный код показан ниже..
Dim OutlookMessage As outlook.MailItem
Dim AppOutlook As New outlook.Application
Try
OutlookMessage = AppOutlook.CreateItem(outlook.OlItemType.olMailItem)
Dim Recipents As outlook.Recipients = OutlookMessage.Recipients Recipents.Add("myemail@hotmail.com")
OutlookMessage.Subject = "Sending through Outlook"
OutlookMessage.Body = "Testing outlook Mail"
OutlookMessage.BodyFormat = outlook.OlBodyFormat.olFormatHTML
OutlookMessage.Sensitivity = outlook.OlSensitivity.olNormal
OutlookMessage.Send()
Catch ex As Exception
MessageBox.Show("Mail could not be sent") 'if you dont want this message, simply delete this line
Finally
OutlookMessage = Nothing
AppOutlook = Nothing
End Try