我有一個名為 ClientListtbl 的表和一個名為 ClientListfrm 的表單。表單上有一個單擊按鈕可自動生成電子郵件。請看下面的代碼
Private Sub Command20_Click()
Dim LastName As Variant
Dim Email As Variant
Dim Notes As Variant
Dim Insurer As Variant
Dim Premium As Variant
Dim RenewalDate As Date
Dim objOutlook As Object
Dim objEmail As Object
LastName = Forms("ClientListfrm").LastName
Email = Forms("ClientListfrm").EmailAddress
Notes = Forms("ClientListfrm").Notes
Insurer = Forms("ClientListfrm").Insurer
Premium = Forms("ClientListfrm").Premium
Set objOutlook = CreateObject("Outlook.Application")
Set objEmail = objOutlook.CreateItem(0)
With objEmail
.To = Email
.Subject = "transfer " & LastName & " from James"
.HTMLBody = Insurer & _
Premium & _
RenewalDate & _
Notes
.Send
End With
Set objEmail = Nothing
Set objOutlook = Nothing
End Sub
我希望電子郵件不會自動發送，以便用戶在發送前對其進行審核，但我似乎無法弄清楚如何更改它。
在 HTMLBody 中，我希望每個欄位都有一個新行，但我見過和嘗試過的所有示例都不起作用。
并且 HTMLBody 中的 RenewalDate 在電子郵件中顯示為 20000:00:00 而不是表單上顯示的日期。
預先感謝您提供的任何幫助。
uj5u.com熱心網友回復：
使用.Display代替.Send。
如果要發送 HTML，則需要構建 HTML。例如
.HTMLBody = "<p>" & Insurer & "</p>" & _
"<p>" & Premium & "</p>"
等等。或者用vbCrLf分隔符構建你的字串，然后HtmlEncode()在結果上使用。
你沒有RenewalDate在你的代碼中設定。Format()如有必要，請使用該功能。
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/353779.html
標籤：vba 外表 ms-access-2016
上一篇：變數前導零（數字格式）