1

電子メールを作成する必要がありますが、ボタンがトリガーされたときに、事前にフォーマットされた電子メールでOutlookを開くようにします。

クライアントにはいくつかの制限があるので、プログラム自体からの電子メールを送信したくないので、Outlookで開いてほしいと思います。

このようなもの：

Dim email As New CDO.Message
With email
    .From = "the_sender@company1.com"
    .To = "the_reciever@company2.com"
    .Subject = "Great e-mail"
    .HTMLBody = "<h1>Header for a cool email</h1> And cool HTML"
    .AddAttachment("Cute_kitty.jpg")

    '.Send() NO! Open outlook with this stuff typed above and make sender useless
End With

これどうやってするの？私はこれを見つけましたが、（もちろん）htmlメールと添付ファイルをサポートしていません...

Dim proc As System.Diagnostics.Process = New System.Diagnostics.Process
proc.StartInfo.FileName = "mailto:the_reciever@company2.com?subject=Great e-mail&body=My cool email that does not support html n stuff"
proc.Start()

提案？

4

1 に答える 1

1

Outlook でメッセージを開く場合は、Outlook オブジェクト モデルを使用する必要があります。線に沿った何か：

set App = CreateObject("Outlook.Application")
set NS = App.GetNamespace("MAPI")
NS.Logon
set email = App.CreateItem(0)
With email .To
= "the_reciever@company2.com"
.Subject = "素晴らしいメール"
.HTMLBody = あなたの HTML テキスト"
.Attachments.Add("c:\temp\Cute_kitty.jpg")
.Display
End With

于 2013-01-14T16:53:14.520 に答える