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

  • Lasersailing

    senior tag

    Sziasztok,

    Egy makróval szeretnék e-mailt küldeni. Mivel már volt ilyen makróm fogtam és átmásoltam, de sajnos nem működik:

    Sub email()
    Dim level As Outlook.Mailitem                           ' levél
    Dim ouapp As Outlook.Application                        ' e-mail

    'e-mail kiküldése automatikusan
        Set ouapp = New Outlook.Application
        Set level = Outlook.CreateItem(olMailItem)
        With level
            .Recipients.Add "XXX"
            .Recipients.Add "YYY"
            
            .Subject = "Trial kitting - " & Date
            .BodyFormat = olFormatHTML
            .HTMLBody = "Sziasztok! "
            .Send
        End With
    End Sub

    És ezt mondja:
    compile error: user-defined type not defined
    a levél nevű sort emeli ki F8-ra, azzal van a gondja.

    Mit rontok el?

    köszi előre is!

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