Adding an attachment to email I just created (VBA)

Not open for further replies.


Outlook version
Outlook 2016 32 bit
Email Account
Exchange Server
What do I need to add to the code below to get an Excel doc attached to the email about to be sent? (About two thirds the way down the page see red text). TIA.

Sub ParseEPDMRequest(Item As Outlook.MailItem)

'parses inbound email using Regular Expression tools and returns required number of specified file numbers

Dim Reg1 As RegExp
Dim M1 As MatchCollection
Dim M As Match
Dim strSubject As String
Dim testSubject As String
Dim objType As String
Dim itemCount As Integer
Dim myAttachments As Outlook.Attachments

TheRequest = ""
DwgCount = 0
PrtCount = 0
AsmCount = 0
PrtNumbers = ""
AsmNumbers = ""
DwgNumbers = ""
addressee = ""

KillFile = "c:\temp\EPDM Numbers.xlsx"

Set Reg1 = New RegExp

' \s* = invisible spaces
' \d* = match digits
' \w* = match alphanumeric

For i = 1 To 3
With Reg1

Select Case i
Case 1
.Pattern = "Drawings\s*[:]+\s*(\w*)\s*"
.Global = False
objType = "Drawing"

Case 2
.Pattern = "Parts\s*[:]+\s*(\w*)\s*"
.Global = False
objType = "Part"

Case 3
.Pattern = "Assemblies\s*[:]+\s*(\w*)\s*"
.Global = False
objType = "Assembly"
End Select

End With

If Reg1.Test(Item.Body) Then

Set M1 = Reg1.Execute(Item.Body)
For Each M In M1
strSubject = M.SubMatches(0)
itemCount = strSubject
TheRequest = vbCrLf & objType & ": " & strSubject & TheRequest
'Debug.Print ObjType & ": " & strSubject
'Debug.Print TheRequest
If objType = "Assembly" Then AsmCount = strSubject
If objType = "Part" Then PrtCount = strSubject
If objType = "Drawing" Then DwgCount = strSubject
strSubject = ""
End If

If itemCount <> 0 Then
theResult = ConnectSqlServer(objType, itemCount)
itemCount = 0

End If
If objType = "Assembly" Then AsmNumbers = theResult
If objType = "Part" Then PrtNumbers = theResult
If objType = "Drawing" Then DwgNumbers = theResult
theResult = ""
Next i

theAddress = GetSmtpAddress(Item)

Dim objMsg As MailItem
Set objMsg = Application.CreateItem(olMailItem)

With objMsg

.To = theAddress
.subject = "Here are your EPDM numbers"
.BodyFormat = olFormatPlain ' send plain text message

.Body = "You requested the following EPDM numbers:" & vbCrLf & vbCrLf _
& PrtCount & " Parts" & vbCrLf & vbCrLf _
& AsmCount & " Assemblies" & vbCrLf & vbCrLf _
& DwgCount & " Drawings" & vbCrLf & vbCrLf & vbCrLf _
& "Here are the Part numbers you have been assigned:" & vbCrLf _
& PrtNumbers & vbCrLf & vbCrLf _
& "Here are the Assembly numbers you have been assigned:" & vbCrLf _
& AsmNumbers & vbCrLf & vbCrLf _
& "Here are the Drawing numbers you have been assigned:" & vbCrLf _
& DwgNumbers & vbCrLf & vbCrLf _
& "Please copy and paste for accuracy." & vbCrLf & vbCrLf _
& "Regards," & vbCrLf & vbCrLf _
& "Your EPDM Service Agent." & vbCrLf & vbCrLf _
& "This is an automated system do not reply to this address."

End With

End Sub
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
G Stop Outlook 365 adding meetings to calendar Using Outlook 0
G Removing old emails when adding accounts Using Outlook 3
D Contact Group - Adding Bulk Addresses Using Outlook 2
C Outlook 2007 Removing then adding account restores junk email processing Using Outlook 0
J O365 - Adding Shared Google Calendar ICS link issue in O365 Using Outlook 0
B Adding signature to bottom of VBA reply email Outlook VBA and Custom Forms 1
S User Defined Fields adding new value (2) Using Outlook 0
M Changing the preferred order for "Put this entry in" list for adding new contacts to the Address Book Using Outlook 1
M Adding Subject to this Link-Saving VBA Outlook VBA and Custom Forms 5
E Project Management - Adding Folders for Different Folder Types Using accounts in Outlook 0
D Adding Enterprise Exchange Email Account to Outlook Prevents Sending via Account Using accounts in Outlook 10
S Adding new Exchange (2016) rule very slow down Microsoft Outlook Exchange Server Administration 0
Z Outlook Custom Form: Adding Dropdown(Project Code) at the end of subject Outlook VBA and Custom Forms 0
Z Adding dropdown list using custom form Outlook VBA and Custom Forms 7
M Adding Macro to populate "to" "subject" "body" not deleting email string below. Outlook VBA and Custom Forms 5
E Unable to open Outlook 2010 after adding new email account Using Outlook 4
O Adding a new account - "CompanyL (none)" line is added Using Outlook 5
broadbander Needing help with reply/reply all while keeping attachments and adding a new CC recipient. Outlook VBA and Custom Forms 5
M adding corresponding contact form data on a mass scale Using Outlook 5
A VB to "reply all" email items stored in a folder of outlook with adding a new message Outlook VBA and Custom Forms 0
K adding more rules to 'different domains check' macro Outlook VBA and Custom Forms 2
P MS OUTLOOK 2013 - Adding Sender on the CC line Using Outlook 5
R User Defined Fields adding new value Using Outlook 3
W Adding A Macro To Message Ribbon Outlook VBA and Custom Forms 2
I Collecting mail address from GAB and adding to Outlook Task Using Outlook 2
A Outlook 2016 - adding account creates a new/strange address Using accounts in Outlook 18
F Adding textbox filter to listbox? Outlook VBA and Custom Forms 2
N Recurring invite sent w/distribution list adding/removing attendees Using Outlook 0
J Issues with adding iCloud to Outlook Using Outlook 1
G Adding a contact to Outlook with a custom form using Access VBA Outlook VBA and Custom Forms 1
C Macro to send email after changing from address and adding signature Outlook VBA and Custom Forms 1
J Adding Reply & Delete to main toolbar? Using Outlook 0
T Outlook 2007 adding categories Using Outlook 15
N Adding Appointment Item in Outlook to Shared Calendar Folder Outlook VBA and Custom Forms 7
Diane Poremsky Adding Emojis to Outlook's AutoCorrect Using Outlook 0
T Adding "Mark As Complete" btton to Task Remindet Pop-Up Using Outlook 3
O Saving Attachments to folder on disk and adding Initials to end of file name Outlook VBA and Custom Forms 9
Ascar_CT Adding contacts on Android phone and then syncing them to Outlook Using accounts in Outlook 4
A Adding a 2010 sharepoint contact list to outlook 2010 address book Using Outlook 1
M Adding fields to Task in Outlook Home and Business 2010 Outlook VBA and Custom Forms 7
S Using Send on Behalf is adding extra data in from line Using Outlook 1
Lucylou Outlook 2013 Adding breaks profile, "Outlook not working" messag Using accounts in Outlook 1
C Adding Categories when Composing Email Using Outlook 1
stephenjones Adding a business account to Outlook Using Outlook 1
Chris Grew Adding 2nd Email Address BCM (Business Contact Manager) 3
tswatek Inbox problems after adding MS Exchange email Using Outlook 2
L Adding sender's e-mail to global address book DL Outlook VBA and Custom Forms 1
R Adding vba to script list Outlook VBA and Custom Forms 4
F Adding User Defined Field to another form Using Outlook 0
Edaniels Adding Week Number on Calender Using Outlook 2

Similar threads