Hallo zusammen
Kann mir hier jemand helfen?
Ich habe in diesem Formular ein Button eingebaut der mit automatisch eine eMail-Nachtricht öffnet.
Nun möchte ich, dass aus dem Access-Formular das Feld „AB“ und das Feld „CD“ automatisch in die Betreffzeile des eMails eingefügt werden.
Ist das irgendwie möglich?
Vielen herzlichen Dank für eure Hilfe.
Liebe Grüsse
Sonja
Hi Sonja,
.Subject = "Im Betreff steht : " & Me.AB & " " & Me.CD
Hallo Philipp
Vielen lieben dank für die rasche Antwort… ich bin wirklich kein Profi und weiss nicht wie ich deinen Code wo eingeben muss.
Ich habe es folgendermassen versucht:
Private Sub Befehl44_Click()
.Subject = "Im Betreff steht : " & Me.GA & " " & Me.ID
End Sub
Ka kommt aber eine Fehlermeldung.
Danke für deine Hilfe.
Liebe Grüsse
Sonja
Hallo,
es wäre gut, wenn Du den Code ausführlich und komplett hier postest, mit dem Du die Email erzeugst. Eine etwas nähere Erläuterung Deiner Kenntnisse kann auch nicht schaden.
Ansonsten mußt Du Dich nicht wundern, wenn spartanisch und aus der Luft gegriffen genauso geantwortet wird, wie Du die Frage stellst.
Viele Grüße vom Bodensee
Franz , DF6GL
PS: Feedback erwünscht!
Hallo Franz
Dies ist mein Code mit dem ich das eMail erzeuge und im „An“ Feld gleich die eMail-Adresse einfüge.
Private Sub Befehl44_Click()
Application.FollowHyperlink „mailto:“ & Me!Weiterleiten_an
End Sub
Nun fehlt mir eben noch ein Zusatz mit dem auch gleich das Feld „Betreff“ mit den Feldern „AB“ und „CD“ abgefüllt wird.
Vielen Dank und liebe Grüsse
Sonja
Hallo Sonja,
etwa so:
Private Sub Befehl44_Click()
DoCmd.SendObject , , , Me!Weiterleiten_an, , , Me!AB & vbCr & Me!CD, „Das ist der Messagetext“, True
End Sub
Viele Grüße vom Bodensee
Franz , DF6GL
PS: Feedback erwünscht!
Es geht auch so, wenn du Emailvorlage benutzt:
’ Verweis auf Microsoft Outlook x.x notwendig
'Eine neue Outlook-Instanz und eine neue Mail auf Basis einer Vorlage erstellen
Dim strPathName As String
Dim objMailItem As Outlook.MailItem
Dim objMailOLApp As Outlook.Application
Set objMailOLApp = New Outlook.Application
Set objMailItem = objMailOLApp.CreateItemFromTemplate(„Pfad der Outlook-Vorlage mit .oft als Endung“)
With objMailItem
.To = Me.An 'Empfänger der Mail
.CC = „[email protected]“ 'Kopie an
.Subject = Me.AB & Me.CD 'Mailbetreff
für Zeilensprünge in der Email benutzt man dann Chr(13)
für Zeilensprünge dem Code benutzt man _
'.Body = „Sehr geehrter Herr Mustermann,“ & Chr(13) & _ 'Mailtext
„anliegend erhalten Sie folgende Unterlagen:“ & Chr(13) & _
Me.Unterlagen1 & Chr(13) & _
Me.Unterlagen2 & Chr(13) & _
…
'.Attachments.Add (Hinzufügen einer Anlage)„Pfad der Datei“
.Display 'Die E-Mail anzeigen (Anwender kann sie bearbeiten)
End With
.body ist optional, weil man den Emailtext entweder per Code eingeben kann oder den Text der bereits in der Vorlage vorhanden ist. Wenn du .body benutzt wird automatisch der Emailinhalt gelöscht und du musst im Code alles eingeben.
Mit dem Code wird eine Email erzeugt, die auf eine Outlookvorlage zugreift mit den Daten der Datenbank:
An: „[email protected]“ (was auch immer im An-Feld steht bei dir)
CC: „[email protected]“
Betreff: Erstzusendung (das Feld AB) Testmail (das Feld CD)
Sehr geehrter Herr Mustermann,
anliegend erhalten Sie folgende Unterlagen:
Lebenslauf (vom Feld Unterlagen1)
Zeugnisse (vom Feld Unterlagen2)
Ich hoffe das ist verständlicher.