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

• #53026 Lasersailing senior tag

  Új Válasz 2024-08-02 09:02:55 #53026

  Ú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

  

  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