E-mail vanuit Excel VB Macro niet versturen als bijlage niet gevonden is

[Khalid23]

Hallo,
Ik gebruik deze macro voor het automatisch versturen van een email. Het werkt opzich prima.
Alleen wil ik dat de macro geen mail stuurt als hij de bijlage niet kan vinden in folder: ("C:\Files\)
Wie kan mij helpen
Alvast bedankt

Sub Mail_small_Text_Outlook()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    
    strbody = "Hallo," & vbNewLine & vbNewLine & _
              "Deze mail is automatisch gegenereerd" & vbNewLine & _
              " " & vbNewLine & _
              "tekst tekst tekst tekst tekst tekst tekst " & vbNewLine & _
              " tekst tekst tekst tekst tekst tekst tekst " & vbNewLine & _
              " " & vbNewLine & _
              "Met vriendelijke groet," & vbNewLine & _
              "Naam Naam"
           

    On Error Resume Next
    
    With OutMail
        .To = "naam@gmail.com"
        .CC = ""
        .BCC = ""
        .Subject = "onderwerp"
        .Body = strbody
        .Attachments.Add ("C:\Files\overzicht.xlsx")
        .Send
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

 

[edmoor]

Bijvoorbeeld zo:

Sub Mail_small_Text_Outlook()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
[COLOR="#FF0000"]
    If Dir("C:\Files\overzicht.xlsx") = "" Then
        MsgBox "Bijlage niet gevonden", vbCritical + vbOKOnly
        Exit Sub
    End If[/COLOR]

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    strbody = "Hallo," & vbNewLine & vbNewLine & _
              "Deze mail is automatisch gegenereerd" & vbNewLine & _
              " " & vbNewLine & _
              "tekst tekst tekst tekst tekst tekst tekst " & vbNewLine & _
              " tekst tekst tekst tekst tekst tekst tekst " & vbNewLine & _
              " " & vbNewLine & _
              "Met vriendelijke groet," & vbNewLine & _
              "Naam Naam"
           
    On Error Resume Next
    With OutMail
        .To = "naam@gmail.com"
        .CC = ""
        .BCC = ""
        .Subject = "onderwerp"
        .Body = strbody
        .Attachments.Add ("C:\Files\overzicht.xlsx")
        .Send
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

 

[Khalid23]

Bijvoorbeeld zo:

Sub Mail_small_Text_Outlook()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
[COLOR="#FF0000"]
    If Dir("C:\Files\overzicht.xlsx") = "" Then
        MsgBox "Bijlage niet gevonden", vbCritical + vbOKOnly
        Exit Sub
    End If[/COLOR]

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    strbody = "Hallo," & vbNewLine & vbNewLine & _
              "Deze mail is automatisch gegenereerd" & vbNewLine & _
              " " & vbNewLine & _
              "tekst tekst tekst tekst tekst tekst tekst " & vbNewLine & _
              " tekst tekst tekst tekst tekst tekst tekst " & vbNewLine & _
              " " & vbNewLine & _
              "Met vriendelijke groet," & vbNewLine & _
              "Naam Naam"
           
    On Error Resume Next
    With OutMail
        .To = "naam@gmail.com"
        .CC = ""
        .BCC = ""
        .Subject = "onderwerp"
        .Body = strbody
        .Attachments.Add ("C:\Files\overzicht.xlsx")
        .Send
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Heel erg bedankt