0

Outlook から 2 つの添付ファイルを含む電子メールを送信するボタンを作成するデータベースがあります。ファイルへのパスを指定できます。メールの本文が正しいかどうかを確認するために、新しいメールを作成するときに取得するフォームのようなポップアップが表示されますか?

これを達成する方法はありますか？

Private Sub Command0_Click()
'Arvin Meyer 03/12/1999
'Updated 7/21/2001
On Error GoTo Error_Handler

Dim objOutlook As Outlook.Application
Dim objEmail As Outlook.MailItem

Set objOutlook = CreateObject("Outlook.application")
Set objEmail = objOutlook.CreateItem(olMailItem)

With objEmail
    .To = "info@datastrat.com"
    .Subject = "Look at this sample attachment"
    .body = "The body doesn't matter, just the attachment"
    .Attachments.Add "C:\Test.htm"
    '.attachments.Add "c:\Path\to\the\next\file.txt"
    .Send
    '.ReadReceiptRequested
End With

Exit_Here:
    Set objOutlook = Nothing
    Exit Sub

Error_Handler:
    MsgBox Err & ": " & Err.Description
Resume Exit_Here

End Sub
4

1 に答える 1

0

理解した！！！！リヤダヴィリに感謝

.send の代わりに .Display でした

そしてそれは働いた

于 2013-01-12T10:39:39.880 に答える