Please help me on my code - Struggling more thank 3 week

[vinodnx]

I am getting error in my below code. please help me . I am stuck around 3 weeks

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




'Create the Outlook application and the empty email.
Set olApp = CreateObject("Outlook.Application")
Set olMailItm = olApp.CreateItem(0)
'Set myAttachments = olMailItem.Attachments
attachmemt1 = "C:\Users\Vinod\Desktop\Game\test.pdf"

'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 = "Support"
.Body = ActiveSheet.TextBoxes(1).Text
.myAttachments.attachment1 (Error Run time error 438 )
.Send
End With

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

 

[lrobbo314]

Change to

[COLOR=#333333].attachments.add attachment1[/COLOR]

 

[vinodnx]

Change to

[COLOR=#333333].attachments.add attachment1[/COLOR]

Thanks lot for your quick reply now I am getting error (440 cannot add the attachment; no data source was provided)

Pleas advise

 

[vinodnx]

Thanks you are right .. thanks a lot