VBA prompt to select attachment

[josros60]

Hi,

How to write a email code in excel and before sending it prompt to select attachment.


Thank you

 

[Kerryx]

attachFile = Application.GetOpenFilename("Files (*.**), *.**", MultiSelect:=True)

If Not IsArray(attachFile) Then
    ' single file was selected
    Set xOutlookObj = CreateObject("Outlook.Application")
    Set xEmailObj = xOutlookObj.CreateItem(0)
    With xEmailObj    
        .Display    
        .To = ""    
        .CC = ""    
        .Subject = ""    
        'use .HTMLBody to enable signature    
        .HTMLBody = strbody & .HTMLBody
        .Attachments.Add attachFile
    End With
Else
    ' multiple files were selected
    For i = LBound(attachFile) To UBound(attachFile)
        ' attach each file
        Set xOutlookObj = CreateObject("Outlook.Application")
        Set xEmailObj = xOutlookObj.CreateItem(0)
        With xEmailObj    
            .Display    
            .To = ""    
            .CC = ""    
            .Subject = ""    
            'use .HTMLBody to enable signature    
            .HTMLBody = strbody & .HTMLBody
            .Attachments.Add attachFile(i)
        End With
    Next i
End If