Mail versturen naar adres in rapport

[chiellebeest]

Ik heb een rapport gemaakt, daarin staat oa een emailadres. Mijn bedoeling is om, als je op het adres klikt, Outlook wordt geopend, het emailadres wordt ingevuld.
Het onderwerp en de mailtekst moet je zelf invullen (dit omdat dit per keer dat je mailt wisselt).

Ik heb nu de volgende code

Private Sub Tekst89_Click()
DoCmd.SendObject acSendNoObject
End Sub

Deze opent Outlook, maar vult het adres niet in, als ik op sluiten klik, krijg ik de volgende foutmelding in Access:
Fout 2501 tijdens de uitvoering
De actie SendObject is geannuleerd.

 

[tigo]

mail versturen

Dat zijn 2 verschillende zaken die je noemt. De foutmelding kun je voorkomen door het volgende op te nemen:

On Error GoTo Exit_BtnSendMail_Click

If IsNull(Me.e_mail) = False Then
DoCmd.SendObject , , , [e-mail]
Else
MsgBox "Geen email adres bekend !"
End If

Exit_BtnSendMail_Click:
Exit Sub

End Sub

In bovengenoemd voorbeeld zie je gelijk waar je het email adres moet opgeven. Volgens mij moet dit dus wel ergens vastgelegd zijn in je rapport.

Succes, Tigo

 

[chiellebeest]

Bedankt, helaas krijg ik nu de volgende foutmelding (zie bijlage)