Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #25799 azopi74 addikt Attas #25798
    Új Válasz #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