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

• #26040 enelna csendes tag

  Új Válasz 2015-03-16 17:47:27 #26040

  Ú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

  

  enelna

  csendes tag

  Üdvözlök Mindenkit !

  azopi74 egyik válaszában segített valakinek ezzel makróval. Személyemre szabtam úgy ahogy én szeretném futtatni, ezzel el is fogyott a tudományom. Abban kérem a segítségeteket, hogy ez a makró minden reggel fusson le automatikusan 07 órakor függetlenül attól, hogy munkanap van e vagy nincs. A gép folyamatosan be van kapcsolva. Mit kell még beírnom és hova ?

  Sub kuldes()

  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
  "E:\uzemkepesseg.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 = "enelna@gmail.com; nagylaszl@fkf.hu"
  .CC = ""
  .BCC = ""
  .Subject = "üzemképesség MMSZ"
  .Body = "Szia ! A mai üzemképesség jelentés"

  .Attachments.Add "E:\uzemkepesseg.pdf"
  .Send
  End With
  Set EMail = Nothing
  Set Outlook = Nothing
  End Sub

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