Új hozzászólás Aktív témák

• #21600 alfa20 senior tag

  Új Válasz 2014-05-13 12:01:00 #21600

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  alfa20

  senior tag

  abban tud valaki segíteni, hogy az alábbi miért nem csatolja be a munkafüzetet?
  szeretnék egy makrót, hogy ne keljen mindig ugyan azt megírnom, de a csatolást nem küldi el.
  a ".Attachments.Add ActiveWorksheet" sort már próbáltam az alábbiakkal is:
  ".Attachments.Add ActiveWorksheet.Name"
  ".Attachments.Add ActiveWorksheet.Fullname"

  Sub Mail_RE()
  
  Dim OutApp As Object
  Dim OutMail As Object
  
  Set OutApp = CreateObject("Outlook.Application")
  Set OutMail = OutApp.CreateItem(0)
  
  On Error Resume Next
  
  With OutMail
  .To = "cim@mail.hu"
  .CC = ""
  .BCC = ""
  .Subject = ActiveWorkbook.Name
  .Body = "Hello World!" & vbCrLf & vbCrLf & "szia"
  .Attachments.Add ActiveWorksheet
  .Send
  End With
  On Error GoTo 0
  
  Set OutMail = Nothing
  Set OutApp = Nothing
  
  End Sub

Új hozzászólás Aktív témák