Struggling with Email Attachments Code

[Eric Penfold]

With this code the last part of Send Email FSOFile says "FSOFile" rather than the path and name of file??

For Each FSOFile In FSOFolder.Files
        If (FSOFile.Name Like "*" & ".pdf" Or FSOFile.Name Like "*" & ".STEP" Or FSOFile.Name Like "*" & ".DXF") Then
            Call Send_Email("Me.Email_List.Value", "", "", "Me.Enter_Number.Value" & " " & Format(Date, "dd/mmmm/yyyy"), _
            "Process Frost Drawings", "FSOFile")
        End If
    Next FSOFile

Main Code below

Sub Send_Email(EmailTo As String, EmailCC As String, EmailBCC As String, EmailSubject As String, EmailBody As String, EmailAttachment As String)
    Dim EmailApp As Object
    Dim EmailItem As Object
    Dim Source As String

    Set EmailApp = CreateObject("Outlook.Application")
    Set EmailItem = EmailApp.CreateItem(0)
    
    With EmailItem
        .to = EmailTo
        .CC = EmailCC
        .BCC = EmailBCC
        .Subject = EmailSubject
        .Body = EmailBody
        
        If EmailAttachment <> "" Then
            .Source = EmailAttachment
            EmailItem.Attachments.Add Source
        End If
        
        .Display
        'EmailItem.Send
    End With
End Sub
Private Sub Email_Drawings_Click()

    Dim EmailApp As Object
    Dim EmailItem As Object
    Dim Source As String
    Dim FSOLibary As FileSystemObject
    Dim FSOFolder As Object
    Dim FSOFile As Object
    Dim strFolderCriteria As String, FolderName As String, strPath As String, strEmailTo As String
    Dim FilesToSend As String


    Set EmailApp = CreateObject("Outlook.Application")
    Set EmailItem = EmailApp.CreateItem(0)
    strFolderCriteria = (Me.Enter_Number.Value)
    strPath = "\\DF-AZ-FILE01\Company\R&D\Drawing Nos\Frost Grates"
    FolderName = strPath & "\" & strFolderCriteria & "\"
    Set FSOLibary = New Scripting.FileSystemObject
    Set FSOFolder = FSOLibary.GetFolder(FolderName)
    
    For Each FSOFile In FSOFolder.Files
        If (FSOFile.Name Like "*" & ".pdf" Or FSOFile.Name Like "*" & ".STEP" Or FSOFile.Name Like "*" & ".DXF") Then
            Call Send_Email("Me.Email_List.Value", "", "", "Me.Enter_Number.Value" & " " & Format(Date, "dd/mmmm/yyyy"), _
            "Process Frost Drawings", "FSOFile")
        End If
    Next FSOFile

End Sub

 

[Eric Penfold]

If i take away quotes then it shows an error "Runtime error 94" but if i leave them in it shows "Me.Email_List.Value"

 

[I_know_nuffin]

where are you pulling the email address's from

in the main routine what does Me.Email_List hold?

 

[Eric Penfold]

where are you pulling the email address's from The user form ListBox

in the main routine what does Me.Email_List hold? Should hold the Email Address at the moment it says Null?

 

[Eric Penfold]

Please could somebody reply thanks?

 

[I_know_nuffin]

The problem is with your refrence to the list box selection

Try searching for vba list box selection

 

[Eric Penfold]

Thanks for all your help all working perfect now.

 

[I_know_nuffin]

Glad you got it working