jelleruben
Gebruiker
- Lid geworden
- 11 nov 2006
- Berichten
- 435
Hallo allemaal,
Ik heb een vraag met betrekking over een rapport te verzenden..
Ik heb in een Formulier een knop zitten, waarmee je een e-mail kan versturen naar de persoon. hier voor gebruik ik het volgende
Bij klikken : =fEmail_link(Nz())[/COLOR]
[COLOR="Red"]Private Sub emailverst_Click()
Function fEmail_link(strEmail_adres As String)
If Len(strEmail_adres) > 5 Then
If InStr(2, strEmail_adres, "@") Then
strEmail_adres = "mailto:" & strEmail_adres & "?SUBJECT=" & "" & "&BODY=" & ""
FollowHyperlink (strEmail_adres)
Dim stDocName As String
Else
MsgBox strEmail_adres & " is geen geldig e-mail adres"
End If
Else
MsgBox "U hebt geen e-mail adres ingevoerd", vbExclamation, "Geen e-mail adres"
End If
End Function[/COLOR]
Tevens heb ik een macro die de rapport verstuurd (Objectversturen).
Is het mogelijk om deze twee samen te voegen, zo dat als je op een knop klikt, dat hij het e-mail adres subject en de bijlage samenvoegd?
Ik hoop dat iemand mij kan en wil helpen.
Met vriendelijke groeten,
Jelle Ruben
Ik heb een vraag met betrekking over een rapport te verzenden..
Ik heb in een Formulier een knop zitten, waarmee je een e-mail kan versturen naar de persoon. hier voor gebruik ik het volgende
Bij klikken : =fEmail_link(Nz())[/COLOR]
[COLOR="Red"]Private Sub emailverst_Click()
Function fEmail_link(strEmail_adres As String)
If Len(strEmail_adres) > 5 Then
If InStr(2, strEmail_adres, "@") Then
strEmail_adres = "mailto:" & strEmail_adres & "?SUBJECT=" & "" & "&BODY=" & ""
FollowHyperlink (strEmail_adres)
Dim stDocName As String
Else
MsgBox strEmail_adres & " is geen geldig e-mail adres"
End If
Else
MsgBox "U hebt geen e-mail adres ingevoerd", vbExclamation, "Geen e-mail adres"
End If
End Function[/COLOR]
Tevens heb ik een macro die de rapport verstuurd (Objectversturen).
Is het mogelijk om deze twee samen te voegen, zo dat als je op een knop klikt, dat hij het e-mail adres subject en de bijlage samenvoegd?
Ik hoop dat iemand mij kan en wil helpen.
Met vriendelijke groeten,
Jelle Ruben