Perhaps you would tell us what your end game is rather than keep drip-feeding changed requirements.
The best way to handle your latest request is to create a userform with three radio buttons, one for each option, a text box for the filename and two command buttons.
Userform1.jpg
The code for the userform would be
Option Explicit
Private Sub CommandButton1_Click()
Hide
Tag = 1
End Sub
Private Sub CommandButton2_Click()
Hide
Tag = 0
End Sub
The main code would be as follows - note the two paths.
Option Explicit
Public Sub saveAttachToDisk()
Dim objAtt As Outlook.Attachment
Dim olMsg As Outlook.MailItem
Dim strDate As String
Dim strName As String
Dim lngAns As Long
Dim oFrm As UserForm1
Const saveFolder1 As String = "C:\Temp\Orders\"
Const saveFolder2 As String = "C:\Temp\Drawings\"
On Error Resume Next
Set olMsg = ActiveExplorer.Selection.Item(1)
strDate = Format(olMsg.ReceivedTime, " yyyy-mm-dd")
For Each objAtt In olMsg.Attachments
If InStr(objAtt.fileName, ".pdf") > 0 Then
Set oFrm = New UserForm1
With oFrm
.Caption = "Select Save Option"
.CommandButton1.Caption = "Continue"
.CommandButton2.Caption = "Cancel"
.TextBox1.Text = objAtt.fileName
.OptionButton1.Caption = "Orders"
.OptionButton2.Caption = "Drawings"
.OptionButton3.Caption = "Don't save"
.OptionButton3.Value = True
.Show
If .Tag = 0 Then GoTo lbl_Exit
strName = Left(objAtt.fileName, (InStrRev(objAtt.fileName, Chr(46))) - 1) & strDate & ".pdf"
Select Case True
Case Is = .OptionButton1.Value
objAtt.SaveAsFile saveFolder1 & strName
Case Is = .OptionButton2.Value
objAtt.SaveAsFile saveFolder2 & strName
Case Else
End Select
End With
Unload oFrm
End If
Next objAtt
lbl_Exit:
Set oFrm = Nothing
Set objAtt = Nothing
Set olMsg = Nothing
Exit Sub
End Sub