So senden Sie ein E-mail von MS Access-Formular

So senden Sie eine E-mail von MS Access-Formular. ?

Nehme an, ich habe MS Access-Anwendung mit einer DashBoard-form.
Ich habe versenden von E-mails an bestimmte E-mail-Adresse
wie das senden einer Benachrichtigungs-mail über einen Klick auf "Meldung senden-button"
Wie dies mit codebuilder in MS access

InformationsquelleAutor Karthikeyan Arumugam | 2012-10-05
  1. 2

    Fand ich, dass Sie E-Mails senden können, mit diesem code-snippet 

    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 = "[email protected]"
     .Cc ="[email protected]"
     .Subject = "Subject LIne"
     .HTMLBody = "<htmltags>Body Content</htmltags>"
     .send
   End With

  MsgBox "Operation completed successfully"

 End Sub

    Quelle : Thread aus Access Programmierer-Website

    InformationsquelleAutor Karthikeyan Arumugam
  2. 0

    Fand ich einige code, der arbeitete für E-Mail basierend auf code, dass ich über einen browser zu öffnen, einen Kontakt für die Homepage, hat Prima funktioniert und war viel einfacher für mich zu verstehen. Für die Eröffnung einer web-Seite, löschen Sie die " "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
    InformationsquelleAutor SQLWayne
Schreibe einen Kommentar