Email 如何从MS Access表单发送邮件

如何从MS Access表单发送邮件

假设我有一个带有仪表板表单的MS Access应用程序。 我已经把邮件寄到某个地址了 类似于单击“发送通知按钮”发送通知邮件

---

如何使用MS access中的codebuilder执行此操作

我发现您可以使用此代码段发送邮件

Private Sub send_mail()

   Dim olApp As Object
   Dim objMail As Object

   On Error Resume Next 'Keep going if there is an error
   Set olApp = GetObject(, "Outlook.Application") 'See if Outlook is open

    If Err Then 'Outlook is not open
       Set olApp = CreateObject("Outlook.Application") 'Create a new instance 
    End If
  'Create e-mail item
   Set objMail = olApp.CreateItem(olMailItem)

   With objMail
   'Set body format to HTML
     .BodyFormat = olFormatHTML
     .To = "abc@yourmailaddress.com"
     .Cc ="ccaddress@yourmailaddress.com"
     .Subject = "Subject LIne"
     .HTMLBody = "<htmltags>Body Content</htmltags>"
     .send
   End With

  MsgBox "Operation completed successfully"

 End Sub

Private Sub send_mail（）
作为对象的Dim-olApp
Dim objMail作为对象
“错误时继续下一步”如果出现错误，请继续
设置olApp=GetObject（，“Outlook.Application”）'查看Outlook是否打开
如果出现错误，则“Outlook未打开”
设置olApp=CreateObject（“Outlook.Application”）'创建一个新实例
如果结束
'创建电子邮件项目
Set objMail=olApp.CreateItem（olMailItem）
用objMail
'将正文格式设置为HTML
.BodyFormat=olFormatHTML
.To=”abc@yourmailaddress.com"
.Cc=”ccaddress@yourmailaddress.com"
.Subject=“主题行”
.HTMLBody=“正文内容”
.发送
以
MsgBox“操作已成功完成”
端接头

---

来源：

我发现了一些用于电子邮件的代码，这些代码基于我用来从联系人主页打开浏览器的代码，工作正常，而且对我来说更容易理解。要打开网页，请删除“mailto:&”

Private Sub cmdEmailContact_Click()
Dim sWebPath As String
Dim sFullLinkPath As String

If IsNull(Me.ContactEmail) Then
    MsgBox ("Can't create email: no address listed")
    Exit Sub
End If

sWebPath = "mailto:" & Me.ContactEmail

sFullLinkPath = sWebPath
Application.FollowHyperlink sFullLinkPath

End Sub