Привет, я думаю, это поможет U
В принципе, есть три способа сделать это.
- Использование
mailto
для открытия приложения Outlook
- Использование традиционной SMTP отправки почты
- Использование библиотеки объектов Outlook для открытия внешнего вида вместе с добавленным вложением в качестве неотъемлемой части приложения.
Использование Mailto Link
<A href=”mailto:Bob@somewhere.com
?Cc:Roxy@righthere.com
&Subject:Using Mailto to send mails&Body:this is a test”>.
Это глупый способ сделать это. Передайте атрибуты вместе с mailto
Однако, если вы хотите использовать это в VB.Net LinkLabel. Вы можете сделать это так
Dim strURL as String strURL = “mailto:Bob@somewhere.com
?Cc:Roxy@righthere.com
&Subject:Using Mailto to send mails&Body:this is a test”
Process.Start(strURL)
Использование SMTP Send Mail
Перед началом кодирования убедитесь, что вы импортируете связанное пространство имен
Imports System.Web.Mail
Здесь идет код
Public Function SMTPCall()
Dim strTo As String
Dim strFrom As String
Dim strBody As String
Dim strSubject As String
strTo = "Bob@somewhere.com"
'Make sure you set the from address,
'some SMTP servers wouldn't send a mail without the FROM address
strFrom = "Roxy@righthere.com" `
strBody = "Test on Sending Mail"`
strSubject = "Did this mail reach you yet?" `
SmtpMail.Send(strFrom, strTo, strSubject, strBody) `
End Function`
Выглядит хорошо, но ограничением двух вышеупомянутых методов является невозможность отправки вложения. Что делать, если пользователь хочет получить доступ к адресной книге Outlook, а также отправить письмо вложение?
Использование библиотеки объектов MSOutlook
Вот небольшой фрагмент кода для интеграции Outlook с VB.Net с использованием библиотеки объектов MS Outlook.
- Сначала создайте экземпляр объекта приложения Outlook.
- Убедитесь, что вы добавили ссылки в Список проектов.
Щелкните правой кнопкой мыши по ссылкам в обозревателе решений. Добавьте «библиотеку объектов Microsoft Outlook 10.0».
публичная функция OutlookCall ()
'Взять экземпляр приложения Outlook
Dim oOutlook As New Outlook. Приложение ()
'Create an instance of the MailItem
Dim oMailitem As Outlook.MailItem`
'Create an instance of the Attachment
Dim oAttach As Outlook.Attachment
oMailitem = oOutlook.CreateItem(Outlook.OlItemType.olMailItem)
oMailitem.To = “Bob@somewhere.com”
oMailitem.Cc = “Roxy@righthere.com”
oMailitem.Subject = "Email Integration with Outlook and VB.Net"
'txtFilepath is a text box that contains the path for attachment.
If (txtFilepath.Text = "") Then
MsgBox ("You did not attach a file")
Else
'Attach the file Path to the Mail Item
oMailitem.Attachments.Add(txtFilepath.Text)
End If
'PING….Displays the Outlook along with the To,Cc,Subject and Attachment
oMailitem.Display()
Функция завершения
Есть много других функций, которые вы можете сделать с этим объектом внешнего вида. Надеюсь, это поможет.
Примечание:
- Microsoft Outlook должен быть установлен на машине.
- Microsoft Outlook считается почтовым клиентским приложением по умолчанию.
- Если существующий экземпляр отправляющего элемента outlook уже запущен, он все равно создаст новое почтовое сообщение.
это поможет вам