Dialogue Box for Attachment

[abac]

Hi gurus,

how can i get dialogue box in VBA for attachments before sending email ?

I'm currently using the following code and it creates PDF file which is fine but I also want some other files to attach with the email, however I'd like it to select it manually rather than defining the path. Please can someone guide me on this.

Many thanks,

Private Sub CommandButton1_Click()

  Dim IsCreated As Boolean
  Dim i As Long
  Dim PdfFile As String, Title As String
  Dim OutlApp As Object
    
    ' Define PDF filename
  PdfFile = ActiveWorkbook.FullName
  i = InStrRev(PdfFile, ".")
  If i > 1 Then PdfFile = Left(PdfFile, i - 1)
  PdfFile = PdfFile & "_" & ActiveSheet.Name & ".pdf"
 
  ' Export activesheet as PDF
  With ActiveSheet
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
  End With
 
  ' Use already open Outlook if possible
  On Error Resume Next
  Set OutlApp = GetObject("Outlook.Application")
  If Err Then
    Set OutlApp = CreateObject("Outlook.Application")
    IsCreated = True
  End If
  OutlApp.Visible = True
  On Error GoTo 0

 
  ' Prepare e-mail with PDF attachment
   With OutlApp.CreateItem(0)
   
   CarryOn = MsgBox("ARE YOU SURE?", vbYesNo, "TEST")
If CarryOn = vbYes Then
   
    ' Prepare e-mail
    .Subject = "XYZ"
    .To = "XYZ@XYZ.COM"
       .Body = "Hi," & vbLf & vbLf _
          & "XYZ." & vbLf & vbLf _
          & "XYZ," & vbLf _
          & Application.UserName & vbLf & vbLf
    .Attachments.Add PdfFile
   
       
    ' Try to send
    On Error Resume Next
    .send
    Application.Visible = True
    If Err Then
      MsgBox "E-mail was not sent", vbExclamation
    Else
      MsgBox "E-mail successfully sent", vbInformation
    End If
    On Error GoTo 0
   End If
  End With
 
 
  ' Delete PDF file
  Kill PdfFile

 
  
  ' Release the memory of object variable
  Set OutlApp = Nothing
 
 
End Sub

[Pepe Le Mokko]

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however it has been brought to our attention that the same query has been posted on one or more other forums and you have not provided the required cross-post link(s) here.

Please see Forum Rule #3 about cross-posting and adjust accordingly. Read this to understand why we (and other sites like us) consider this to be important.

Despite three warnings about not following our forum rules about cross posting ( and one about another infraction), I am withdrawing your posting privileges for seven days

No help to be provided until the banning period expires