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

• #32802 Fferi50 Topikgazda morgusz #32801

  Új Válasz 2016-09-28 17:45:11 #32802

  Ú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 morgusz #32801 üzenetére

  Szia!

  Szerintem a
  Set Email = Outlookprogi.CreateItem(0)
On Error Resume Next
For xx = 2 To 100
If IsEmpty(Cells(xx, "I")) Then Exit For
If Cells(xx, "S") = "küldhető" And Cells(xx, "M") = 1 Then
  programrészt kellene átírni így:

  On Error Resume Next
For xx = 2 To 100
If IsEmpty(Cells(xx, "I")) Then Exit For
If Cells(xx, "S") = "küldhető" And Cells(xx, "M") = 1 Then
Set Email = Outlookprogi.CreateItem(0) 'abban nem vagyok biztos, hogy mindig (0) paraméter kell, lehetséges, hogy azt is kell növelni, ezt próbáld ki lsz.

  Az elküldése szerintem a .send lehet (de ez csak tipp, nézd meg lsz.)

  Üdv.

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