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

• #40870 JagdPanther aktív tag

  Új Válasz 2019-04-23 13:03:49 #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