Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Dim Bestand As String
Bestand = ActiveWorkbook.Path & "\4 Opgeleverd aan OG\Concept\" & McName & "_concept.pdf"
olMail.HTMLBody = strbody & "<br/>" & Signature
If Dir(Bestand) <> vbNullString Then
olMail.Attachments.Add Bestand
Else
MsgBox ("Kan het bestand " & Bestand & " niet vinden!")
End If
olMail.Display
If Not olApp Is Nothing Then Set olApp = Nothing
End Sub
Dim Bestand As String
Dim Bestand1 As String
Dim Bestand2 As String
Bestand1 = ActiveWorkbook.Path & "\4 Opgeleverd aan OG\Concept\" & mcname & "_concept.pdf"
Bestand2 = ActiveWorkbook.Path & "\4 Opgeleverd aan OG\Concept\" & mcname & "\" & mcname & "_concept.pdf"
If Dir(Bestand1) = vbNullString Then
If Dir(Bestand2) = vbNullString Then
MsgBox ("Kan het bestand niet vinden!")
Else
Bestand = Bestand2
End If
Else
Bestand = Bestand1
End If
olMail.HTMLBody = strbody & "<br/>" & Signature
olMail.Attachments.Add Bestand
olMail.Display
Dim part() As String
Dim r As Integer
Dim basePath As String
Dim wb As Excel.Workbook
part = Split(wb.Path, "\")
i = 0
For r = 0 To UBound(part)
basePath = basePath & part(r) & "\"
If Left(part(r), 3) = "608" Then Exit For
Next
Dim Bestand As String
Dim Bestand1 As String
Dim Bestand2 As String
Bestand1 = wb.Path & "\4 Opgeleverd aan OG\Concept\" & McName & "_concept.pdf"
Bestand2 = wb.Path & "\4 Opgeleverd aan OG\Concept\" & McName & "\" & McName & "_concept.pdf"
If Dir(Bestand1) = vbNullString Then
If Dir(Bestand2) = vbNullString Then
MsgBox "Kan het bestand " & McName & "_concept.pdf" & " niet vinden in:" & vbCrLf & vbCrLf & Bestand1 & vbCrLf & "of" & vbCrLf & Bestand2 & vbCrLf & vbCrLf & "Controleer of het bestandsnaam correct is en/of in het map concept staat!", vbOKOnly
Exit Sub
Else
Bestand = Bestand2
End If
Else
Bestand = Bestand1
End If
olMail.HTMLBody = strbody & "<br/>" & Signature
olMail.Attachments.Add Bestand
olMail.Display
End Sub
Dim part() As String
Dim r As Integer
Dim basePath As String
Dim wb As Excel.Workbook
part = Split(wb.Path, "\")
i = 0
For r = 0 To UBound(part)
basePath = basePath & part(r) & "\"
If Left(part(r), 3) = "608" Then Exit For
Next
Dim Bestand As String
Dim Bestand1 As String
Dim Bestand2 As String
Bestand1 = wb.Path & "\4 Opgeleverd aan OG\Concept\" & McName & "_concept.pdf"
Bestand2 = wb.Path & "\4 Opgeleverd aan OG\Concept\" & McName & "\" & McName & "_concept.pdf"
If Dir(Bestand1) = vbNullString Then
If Dir(Bestand2) = vbNullString Then
MsgBox "Kan het bestand " & McName & "_concept.pdf" & " niet vinden in:" & vbCrLf & vbCrLf & Bestand1 & vbCrLf & "of" & vbCrLf & Bestand2 & vbCrLf & vbCrLf & "Controleer of het bestandsnaam correct is en/of in het map concept staat!", vbOKOnly
Exit Sub
Else
Bestand = Bestand2
End If
Else
Bestand = Bestand1
End If
[COLOR="#FF0000"]MsgBox Bestand[/COLOR]
olMail.HTMLBody = strbody & "<br/>" & Signature
olMail.Attachments.Add Bestand
olMail.Display
End Sub
If Not .Range("C25").Value = vbNullString Then
McName = .Range("C25").Value
Else
MsgBox "Mc nummer is niet ingevuld!" & vbCrLf & "Vul die in en probeer opnieuw!", vbOKOnly, "McName"
Exit Sub
End If
Opdrachtnummer 15-00870
Mcnummer Test
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.