Error in VBA-code for send mail with Attached file using outlook.

[KlausW]

Hi, I use this VBA code to send mail with Attached file using outlook. But I for this error message see the attachment, someone who can help.
Any help will be appreciated.
Best regards Klaus W

Option Explicit

Private Sub Send_Email_to_an_Address_in_Cell()

Dim MyOutlook As Object
Set MyOutlook = CreateObject("Outlook.Application")

Dim MyMail As Object

Set MyMail = MyOutlook.CreateItem(olMailItem)

MyMail.To = Range("a17").Value '& "; " & Range("a18").Value & "; " & Range("a19").Value & "; " & Range("a20").Value

MyMail.Subject = Range("a24").Value
MyMail.Body = Range("a25").Value & vbNewLine & vbNewLine & Range("a26").Value & vbNewLine & _
        Range("a27").Value & vbNewLine & Range("a28").Value & vbNewLine & Range("a28").Value & vbNewLine & _
        Range("a29").Value & vbNewLine & _
        Range("a30").Value

Attached_File = Range("a31").Value
MyMail.Attachments.Add Attached_File

MyMail.Send

End Sub

 

[Jimmypop]

Hi there...

What happens if you add this line to the beginning...

Dim Attached_File As Outlook.Attachments

 

[RoryA]

It should be:

Dim Attached_File as String

 

[Jimmypop]

Rory is correct... Only realised now that the Attached file is referring to a string in a range...

 

[KlausW]

Hi RoryA
Thanks allot its works as it shoud. Have a great day,
Best regards from Denmark. Klaus W