C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[3]: メールの下書き保存について

分類:[VB.NET/VB2005 以降]　

開発環境：visual studio2015、.NETFramework,Version=v4.5.2
使用言語：VB

お世話になります。きょんと申します。

現在visual studio2015で、メール送信をしないで、「下書き」フォルダに保存するプログラムを作成しています。
下記プログラムを実行すると、メールが送信され、下書きに保存されません。

下記ソースをどのように修正すれば、下書きに保存されるようになるでしょうか。

※下書きフォルダは、メールソフト(outlook)内で確認できるフォルダのことです。

Private Sub MailTest()

Dim oMail As New SmtpMail("TryIt")
Dim oSmtp As New SmtpClient()
Dim oServer As New SmtpServer("test.com")

oMail.From = "test@test.co.jp"
oMail.To = "test@test.co.jp"
oMail.Subject = "メール送信テスト"
oMail.TextBody = "メール送信テストです"
oMail.AddAttachment("C:\Temp\メールテスト.txt")

oServer.Protocol = ServerProtocol.ExchangeEWS
oServer.User = "test"
oServer.Password = "test_password"
oServer.ConnectType = SmtpConnectType.ConnectSSLAuto
oServer.Alias = "test"
oServer.Drafts = "下書き"

Try
oSmtp.SendMail(oServer, oMail)

Catch ex As Exception
Throw New Exception(ex.Message)
End Try

■No90464 (きょんさん) に返信
> ※下書きフォルダは、メールソフト(outlook)内で確認できるフォルダのことです。

'Imports Outlook = Microsoft.Office.Interop.Outlook

Dim oApp As New Outlook.Application()
Dim oMail = DirectCast(oApp.CreateItem(Outlook.OlItemType.olMailItem), Outlook.MailItem)
Dim oAttachments As Outlook.Attachments = oMail.Attachments

oMail.To = "dust@example.com"
oMail.Subject = "メール送信テスト"
oMail.BodyFormat = Outlook.OlBodyFormat.olFormatPlain
oMail.Body = "メール送信テスト"
oAttachments.Add( "C:\example\file.txt" )

If CheckBox1.Checked Then
　　oMail.Display()
Else
　　oMail.Save()
End If

返信いただき、ありがとうございます。

oServer.Protocol = ServerProtocol.ExchangeEWS
↑
上記のプロトコルを含めた処理で下書き保存したいのですが、
それも可能でしょうか？

■No90467 (魔界の仮面弁士さん) に返信
> ■No90464 (きょんさん) に返信
>>※下書きフォルダは、メールソフト(outlook)内で確認できるフォルダのことです。
>
> 'Imports Outlook = Microsoft.Office.Interop.Outlook
>
> Dim oApp As New Outlook.Application()
> Dim oMail = DirectCast(oApp.CreateItem(Outlook.OlItemType.olMailItem), Outlook.MailItem)
> Dim oAttachments As Outlook.Attachments = oMail.Attachments
>
> oMail.To = "dust@example.com"
> oMail.Subject = "メール送信テスト"
> oMail.BodyFormat = Outlook.OlBodyFormat.olFormatPlain
> oMail.Body = "メール送信テスト"
> oAttachments.Add( "C:\example\file.txt" )
>
> If CheckBox1.Checked Then
> 　　oMail.Display()
> Else
> 　　oMail.Save()
> End If

自己解決できました。ありがとうございました。

参考ページ↓
http://www.geocities.jp/sys_ikeda/EWS/index.html
https://docs.microsoft.com/ja-jp/exchange/client-developer/exchange-web-services/get-started-with-ews-managed-api-client-applications
https://www.microsoft.com/en-us/download/details.aspx?id=35371

■No90470 (きょんさん) に返信
> 返信いただき、ありがとうございます。
>
>
> oServer.Protocol = ServerProtocol.ExchangeEWS
> ↑
> 上記のプロトコルを含めた処理で下書き保存したいのですが、
> それも可能でしょうか？
>
>
>
>
> ■No90467 (魔界の仮面弁士さん) に返信
>>■No90464 (きょんさん) に返信
> >>※下書きフォルダは、メールソフト(outlook)内で確認できるフォルダのことです。
>>
>>'Imports Outlook = Microsoft.Office.Interop.Outlook
>>
>>Dim oApp As New Outlook.Application()
>>Dim oMail = DirectCast(oApp.CreateItem(Outlook.OlItemType.olMailItem), Outlook.MailItem)
>>Dim oAttachments As Outlook.Attachments = oMail.Attachments
>>
>>oMail.To = "dust@example.com"
>>oMail.Subject = "メール送信テスト"
>>oMail.BodyFormat = Outlook.OlBodyFormat.olFormatPlain
>>oMail.Body = "メール送信テスト"
>>oAttachments.Add( "C:\example\file.txt" )
>>
>>If CheckBox1.Checked Then
>>　　oMail.Display()
>>Else
>>　　oMail.Save()
>>End If

C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[3]: メールの下書き保存について

過去ログには書き込み不可