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

• #25799 azopi74 addikt Attas #25798

  Új Válasz 2015-03-07 21:07:53 #25799

  Ú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

  

  azopi74

  addikt

  válasz Attas #25798 üzenetére

  ThisWorkbook-ba:

  Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Application.EnableCancelKey = xlDisabled
  ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
  "utvonal\nev.pdf", Quality:=xlQualityStandard, _
  IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:= _
  False
  
  Dim Outlook As Object, EMail As Object
  
  
  Set Outlook = CreateObject("Outlook.Application")
  
  Set EMail = Outlook.CreateItem(0)
  
  With EMail
  .to = "valaki@valahol.com; valaki@valahol.com"
  .CC = ""
  .BCC = ""
  .Subject = "tárgy"
  .Body = "szöveg"
  
  .Attachments.Add "utvonal\nev.pdf"
  .Send
  End With
  
  
  Set EMail = Nothing
  
  Set Outlook = Nothing
  
  End Sub

  Megjegyzés:

  Az "Application.EnableCancelKey = xlDisabled" Nem biztos, hogy szükséges, nekem "Code execition has been interrupted"-ot dobott nélküle, (de azért lefutott) így küszöböltem ki

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