Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    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

  • #40870 JagdPanther aktív tag
    Új Válasz #40870
    Ú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

    JagdPanther

    aktív tag

    Sziasztok,

    kérem segítsetek alábbiakban!
    Cél: Excel lista alapján [kép]
    egyetlen címzettnek elküldeni 5 db levelet Outlook-kal úgy, hogy az 5 db levélnek
    - a címzettje ugyanaz, A2 : A6 szerinti cím
    - a tárgya a B2 : B6 oszlop szerinti alfanumerikus karakterek
    - a szöveg a C2 : C6 szerinti szöveg

    Alábbi kód van meg, de "Runtime Error 424: Object required" hibát dob.

    Sub SendEmail()

    Dim subject_line As String
    Dim olApp As Outlook.Application
    Set olApp = CreateObject("Outlook.Application")

    Dim olMail As Outlook.MailItem
    Set olMail = olApp.CreateItem(olMailItem)

    olMail.To = "proba@proba.hu"
    olMail.Subject = subject_line
    olMail.Body = "mail_body"
    olMail.Send

    row_number = 2

    Do
    DoEvents
    row_number = row_number + 1
    subject_line = Lista1.Range("B" & row_number)
    Loop Until row_number = 6


    End Sub

    köszi a segítséget!

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