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

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

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

メールの下書き保存について

[トピック内 4 記事 (1 - 4 表示)]  << 0 >>

■90464 / inTopicNo.1)  メールの下書き保存について
  
□投稿者/ きょん (1回)-(2019/03/12(Tue) 20:14:14)

分類:[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
引用返信 編集キー/
■90467 / inTopicNo.2)  Re[1]: メールの下書き保存について
□投稿者/ 魔界の仮面弁士 (2106回)-(2019/03/13(Wed) 09:15:10)
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
引用返信 編集キー/
■90470 / inTopicNo.3)  Re[2]: メールの下書き保存について
□投稿者/ きょん (2回)-(2019/03/13(Wed) 10:17:47)
返信いただき、ありがとうございます。


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
引用返信 編集キー/
■90482 / inTopicNo.4)  Re[3]: メールの下書き保存について
□投稿者/ きょん (3回)-(2019/03/14(Thu) 09:30:40)
自己解決できました。ありがとうございました。

参考ページ↓
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
引用返信 編集キー/

このトピックをツリーで一括表示


トピック内ページ移動 / << 0 >>

このトピックに書きこむ