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

• #40871 Pakliman tag JagdPanther #40870

  Új Válasz 2019-04-23 13:30:45 #40871

  Ú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

  

  Pakliman

  tag

  válasz JagdPanther #40870 üzenetére

  Szia!

  Ennek így működnie kell:
  Public Sub SendEmail()
Dim olApp As Object
Dim olMail As Object
Dim row_number As Long

Set olApp = CreateObject("Outlook.Application")

On Error Resume Next
For row_number = 2 To 6
Set olMail = olApp.CreateItem(0)
With olMail
.to = Worksheets("Lista1").Cells(row_number, 1)
.Subject = Worksheets("Lista1").Cells(row_number, 2)
.Body = Worksheets("Lista1").Cells(row_number, 3)
.send
End With
Next row_number
On Error GoTo 0

Set olMail = Nothing
Set olApp = Nothing
End Sub

  Javítottam...

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