0

MS Access フォームからメールを送信する方法。?

ダッシュボード フォームを備えた MS Access アプリケーションがあるとします。「通知の送信ボタン」をクリックして通知メールを送信するなど、特定のメールアドレスにメールを送信しました MSアクセスのコードビルダーでこれを行う方法

4

2 に答える 2

2

このコード スニペットを使用してメールを送信できることがわかりました

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

出典：Access Programmerサイトのスレッド

于 2012-10-05T07:29:42.070 に答える
0

連絡先のホームページからブラウザーを開くために使用していたコードに基づいて、電子メールで機能するコードをいくつか見つけました。問題なく機能し、理解するのがはるかに簡単でした。Web ページを開くには、「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
于 2014-12-01T16:59:49.003 に答える