Vedhæft PDF vha VBA

Prøv at se: http://www.eksperten.dk/spm/963041

Hej Supertekst

Jeg har forsøgt med dit forslag, men kan stadig ikke få det til at virke. Er det måske fordi jeg bruger funktionen envelope?
MVH
Ups

Eksempel på vedhæftet fil:

EmailSend.Attachments.Add ("D:\Test\" & Cells(ActiveCell.Row, "A") & ".xlsx")

Hej Supertekst

Sub Send_Range()

  ActiveSheet.Range("C12:J40").Select

  ActiveWorkbook.EnvelopeVisible = True

  With ActiveSheet.MailEnvelope

      .Item.To = ActiveSheet.Range("C10").Value
      .Item.Subject = ActiveSheet.Range("C23").Value
      ActiveSheet.Range("A10").Select
      EmailSend.Attachments.Add ("C:\Duge\" & Cells(ActiveCell.Row, "A") & ".txt")
  End With
End Sub

Jeg får stadig en fejl (debug) på stien
Jeg ved ikke om det er envelope der er problemet, for makroen kører frem til at skulle vedhæfte




MVH
Ups

Her er et eksempel:

Sub Send_Range()
  ' Select the range of cells on the active worksheet.
  ActiveSheet.Range("A1:B5").Select
 
  ' Show the envelope on the ActiveWorkbook.
  ActiveWorkbook.EnvelopeVisible = True
 
  ' Set the optional introduction field thats adds
  ' some header text to the email body. It also sets
  ' the To and Subject lines. Finally the message
  ' is sent.
  With ActiveSheet.MailEnvelope
        .Introduction = "This is a sample worksheet."
        .Item.To = "pb@supertekst-it.dk"
        .Item.Subject = "Test"
        .Item.Attachments.Add "D:\Test.xlsx"    '<----------
       
        .Item.Send
  End With

Hej Supertekst

Så lykkedes det!!!
Den fejl jeg havde var, at jeg henviste til en celle som ikke var med i den første markerering af celler. Formlen her fungere
Sub Send_Range()

  ActiveSheet.Range("C12:J40").Select

  ActiveWorkbook.EnvelopeVisible = True


  With ActiveSheet.MailEnvelope

      .Item.To = ActiveSheet.Range("C10").Value
      .Item.Subject = ActiveSheet.Range("C23").Value
      ActiveSheet.Range("J17").Select
      .Item.Attachments.Add ("C:\Duge\" & Cells(ActiveCell.Row, "J") & ".txt")
 
  End With
End Sub

MANGE tak for hjælpen, og send endelig et svar så du kan få dine velfortjente point

MVH
Ups

Fint det lykkedes - du får et svar..