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

  • 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