Userform Browse button for File...Attached to Created Email

[Qwest336]

Good morning everyone,

I have one thing keeping this project from piloting. You would be my personal heros if you could help me out! Disclaimer: Novice to VBA who will be learning more in the coming months.

I have a Userform called "EscalationsForm". This userform has a Multipage object on it. Two of the multipage objects have buttons on them that I want to allow the user to Browse to a file and select it. I've used the following code to achieve that and to pass that filename as a string to a textbox so that the user can verify what they have attached:

Private Sub cmdUHAAttach_Click()
Dim fName As String
 fName = Application.GetOpenFilename()
 If Not fName = "False" Then
 tbUHADocAttached.Value = fName
 End If
End Sub

How can I take the file that is specified and attach it to an email that is created by the Click event of a Submit button? So far, I've tried the "Attachments.Add fName" under the "With Outmail" statement but I'm thinking since I declared fName as a String that I can't pass it. Do I need to declare it as an Object?

Any help in this is, again, greatly appreciated! I can't wait until I can answer questions like you all do!

 

[Qwest336]

Another one bites the dust!

After pulling my hair out, I finally found a site that put me on the path to solving it!

Final Coding was as follows:

Private Sub cmdUHAAttach_Click()
Dim strFilename As Variant
 
    ChDir "C:\" ' change to path to start dialog in
    
    strFilename = Application.GetOpenFilename(, , "Choose file for Escalation", , False)
    
    If TypeName(strFilename) = "String" Then
        tbUHADocAttached.Value = strFilename
    Else
        MsgBox "No attachment selected"
    End If
End Sub

Private Sub cmdRescAttach_Click()
Dim strFilename As Variant
 
    ChDir "C:\" ' change to path to start dialog in
    
    strFilename = Application.GetOpenFilename(, , "Choose file for Escalation", , False)
    
    If TypeName(strFilename) = "String" Then
        tbRescDocAttached.Value = strFilename
    Else
        MsgBox "No attachment selected"
    End If


 End Sub

In the "With Outmail" statement:

        .Attachments.Add EscalationsForm.tbRescDocAttached.Value & EscalationsForm.tbUHADocAttached.Value
        
    If tbRescDocAttached.Value <> "" Then
            .Attach tbRescDocAttached.Value
    ElseIf tbUHADocAttached.Value <> "" Then
            .Attach tbUHADocAttached.Value
    End If

2 (in my world) big ones solved in as many days! Feeling pretty good! Hopefully this helps another poor lost soul someday.