Opgelost PDF mailen

[Verwijderd lid 501906]

@xbox360
mooi ! Vergeet niet om je vraag op opgelost te zetten
daar kun je altijd nog op terugkomen.

Zoals ik al melde
ik weet niets van OUTLOOK en niets van TEAMS
ja dat het bestaat!

fijne dag nog, ik ga lunchen

 

[edmoor]

Twee simpele functies voor de eerder genoemde controles:

Function CheckFilename(p1 As String) As Boolean
    Dim InvalidChars As String
    Dim i As Integer
 
    InvalidChars = "<>:/\|?*" & Chr(34)
    For i = 1 To Len(p1)
        If InStr(InvalidChars, Mid(p1, i, 1)) > 0 Then Exit Function
    Next i
    CheckFilename = True
End Function

Function CheckEmalAddress(Ema As String) As Boolean
    With CreateObject("VBScript.RegExp")
        .Pattern = "^[\w-\.]+@([\w-]+\.)+[A-Za-z]{2,3}$"
        If .test(Ema) Then CheckEmalAddress = True
    End With
End Function

Is je baas ook weer blij

 

[Verwijderd lid 501906]

@edmoor

Dank u

hahahaha zou voor het eerst zijn dat mijn baas blij met me is!

 

[edmoor]

Herstel tikfout in functienaam:

Function CheckEmailAddress(Ema As String) As Boolean
    With CreateObject("VBScript.RegExp")
        .Pattern = "^[\w-\.]+@([\w-]+\.)+[A-Za-z]{2,3}$"
        If .test(Ema) Then CheckEmailAddress = True
    End With
End Function