Not able to attached file

[vinodnx]

Dare all,
I am not able to attached file through my VBA code. I am small kid for VBA, please master help for my below code

Sub Sample()
'Setting up the Excel variables.
Dim olApp As Object
Dim olMailItm As Object
Dim iCounter As Integer
Dim Dest As Variant
Dim SDest As String
Dim sh As Worksheet
Dim myAttachments As Object

'filename = "C:\Users\Vinod\Desktop\Latest Billing\PointX_Portfolio.pdf"

'Create the Outlook application and the empty email.
Set olApp = CreateObject("Outlook.Application")
Set olMailItm = olApp.CreateItem(0)
Set myAttachments = OutLookMailItem.Attachments



'Using the email, add multiple recipients, using a list of addresses in column A.
With olMailItm
SDest = ""
For iCounter = 1 To WorksheetFunction.CountA(Columns(1))
If SDest = "" Then
SDest = Cells(iCounter, 1).Value
Else
SDest = SDest & ";" & Cells(iCounter, 1).Value
End If
Next iCounter

'Do additional formatting on the BCC and Subject lines, add the body text from the spreadsheet, and send.
.BCC = SDest
.Subject = "Complete Design For Tooling Support"
.Body = ActiveSheet.TextBoxes(1).Text
myAttachments.Add "C:\Users\Vinod\Desktop\Latest Billing\PointX_Portfolio.pdf"
.Send
End With

'Clean up the Outlook application.
Set olMailItm = Nothing
Set olApp = Nothing
End Sub

 

[sykes]

This should work, now:

Sub Sample()
'Setting up the Excel variables.
Dim olApp As Object
Dim olMailItm As Object
Dim iCounter As Integer
Dim Dest As Variant
Dim SDest As String
Dim sh As Worksheet
Dim myAttachments As Object

'filename = "C:\Users\Vinod\Desktop\Latest Billing\PointX_Portfolio.pdf"

'Create the Outlook application and the empty email.
Set olApp = CreateObject("Outlook.Application")
Set olMailItm = olApp.CreateItem(0)
Set myAttachments = olMailItm.Attachments



'Using the email, add multiple recipients, using a list of addresses in column A.
With olMailItm
SDest = ""
For iCounter = 1 To WorksheetFunction.CountA(Columns(1))
If SDest = "" Then
SDest = Cells(iCounter, 1).Value
Else
SDest = SDest & ";" & Cells(iCounter, 1).Value
End If
Next iCounter

'Do additional formatting on the BCC and Subject lines, add the body text from the spreadsheet, and send.
.BCC = SDest
.Subject = "Complete Design For Tooling Support"
.Body = ActiveSheet.TextBox1.Value
myAttachments.Add "C:\Users\Vinod\Desktop\Latest Billing\PointX_Portfolio.pdf"
.Send
End With

'Clean up the Outlook application.
Set olMailItm = Nothing
Set olApp = Nothing
End Sub

I changed a few bits, but had to refer to your TextBox by name, rather than control number, so you'll need to change the bit in red, to the actual name of your TextBox.