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

 

[I_know_nuffin]

try removing the Quote around "FSOFile" ------ FSOFile

 

[Eric Penfold]

I have tried that but it it says ByRef Argument type mismatch

 

[I_know_nuffin]

I have tried that but it it says ByRef Argument type mismatch

you've declared FSOFile as an object but the send email is expecting a string


so use
FSOFile.Name

 

[RoryA]

If you want the path and name use:

Call Send_Email("Me.Email_List.Value", "", "", "Me.Enter_Number.Value" & " " & Format(Date, "dd/mmmm/yyyy"), _
            "Process Frost Drawings", FSOFile.Path & application.pathseparator & fsofile.name)

Not sure what your .Source is supposed to be - a mailitem doesn't have a source property.

 

[Eric Penfold]

I need to find all PDFs in a folder then send them on Email. With Rory`s code it says the pdf drawing twice.

 

[I_know_nuffin]

try just using

FSOFile.Path

 

[I_know_nuffin]

and probably change

If EmailAttachment <> "" Then
.Source = EmailAttachment
EmailItem.Attachments.Add Source
End If

to

If EmailAttachment <> "" Then
EmailItem.Attachments.Add EmailAttachment
End If

 

[Eric Penfold]

This all works thanks, except i can`t seem to get the Email Address to work. As in Email list on the form Value?

 

[I_know_nuffin]

try removing the quotes from the variables
Me.Email_List.Value

in the routine send _email

add some debugging to show what is being passed to the routine

add
stop
debug.print EmailTo
and when code stops use F8 to step through the code


which will print into the immediate window the value of EmailTo