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

• #40872 Fferi50 Topikgazda JagdPanther #40870

  Új Válasz 2019-04-23 13:49:12 #40872

  Ú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

  

  Fferi50

  Topikgazda

  válasz JagdPanther #40870 üzenetére

  Szia!

  Ahhoz, hogy tudd használni az Outlook változóit a makróban, a Referenciák közé fel kell venni az Outlook referencia könyvtárát - pl. Microsoft Outlook 16.0 Object Library - a Tools - References menüpontban.
  Utána deklarálhatod az olApp változót mint Outlook.Application.
  Egyébként csak Object -ként deklarálva működik.
  (Ez utóbbi esetben viszont nem hozza fel automatikusan az Outlook objektumait.)
  A referenciát makróból is hozzá lehet adni a projekthez, mielőtt elindítanád a meghívást.

  Üdv.

• #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