ユーザーがグリッドから選択を行うことができ(ローカルフォルダーにファイルをアップロードしている)、ユーザーが[送信]を押すと、アプリケーションは、添付ファイルとしてファイルを選択したOutlookの[新着メールメッセージ]ウィンドウを開く必要があるシナリオがあります(ユーザーが選択したグリッドから)。
どんな助けでもありがたいです。
ユーザーがグリッドから選択を行うことができ(ローカルフォルダーにファイルをアップロードしている)、ユーザーが[送信]を押すと、アプリケーションは、添付ファイルとしてファイルを選択したOutlookの[新着メールメッセージ]ウィンドウを開く必要があるシナリオがあります(ユーザーが選択したグリッドから)。
どんな助けでもありがたいです。
Imports System.Diagnostics
Process.Start(String.Format("mailto:{0}", address))
' set all possible parameters: '
Process.Start(String.Format("mailto:{0}?subject={1}&cc={2}&bcc={3}&body={4}", address, subject, cc, bcc, body))
' also escape spaces: '
Process.Start(String.Format("mailto:{0}?subject=\"{1}\"&cc={2}&bcc={3}&body=\"{4}\"", address, subject, cc, bcc, body))
nextを使用して、改行を含めます。
body = body.Replace(Environment.NewLine ,"%0A")
新しいメッセージ作成ダイアログでデフォルトの電子メールクライアントを開きます。
Outlookがデフォルトのクライアントとして設定されている場合は、Outlookが開きます。
とにかく、デフォルト以外のクライアント(電子メール、ブラウザなど)を明示的に開かないでください。これにより、クライアントの意志が損なわれ、クライアントがあなたを憎むようになります。
特にOutlookメッセージが必要で、送信する内容(本文、添付ファイル、BCCなど)に関するオプションがさらに必要な場合:
Dim Outl As Object
Outl = CreateObject("Outlook.Application")
If Outl IsNot Nothing Then
Dim omsg As Object
omsg = Outl.CreateItem(0) '=Outlook.OlItemType.olMailItem'
'set message properties here...'
omsg.Display(True) 'will display message to user
End If
Dim Outl As Object
Outl = CreateObject("Outlook.Application")
If Outl IsNot Nothing Then
Dim omsg As Object
omsg = Outl.CreateItem(0)
omsg.To = "yusuf@hotmail.com"
omsg.bcc = "yusuf@gmail.com"
omsg.subject = "Hello"
omsg.body = "godmorning"
omsg.Attachments.Add("c:\HP\opcserver.txt")
'set message properties here...'
omsg.Display(True) 'will display message to user