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

• #32787 morgusz csendes tag

  Új Válasz 2016-09-26 23:46:30 #32787

  Ú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

  

  morgusz

  csendes tag

  Sziasztok!

  Most az alábbi makróval küldök emailt Excel táblázatból, egyenként kézzel indítva, válogatva a sorok közül! ("L" oszlop aktuális celláján állva indul a makró)

  Raktam be függvényeket az "M és "S" oszlopokba amik segítenek a válogatásban, de ezek segítségével már szerintem automatikusan is lehetne küldeni.

  Segítséget szeretnék kérni a makró módosításához úgy, hogy ha adott sor "S" oszlopában a "küldhető" szöveg és az "M" oszlopban "1" szerepel, akkor készítse el küldésre az emailt.
  Addig kellene vizsgálni a táblát amíg "I" oszlop adatot tartalmaz, vagy a 100. sorig (100 a vége de addig még sosem volt kitöltve )

  Előre is köszi!

  Dim Outlookprogi As Object
  Dim Email As Object
  Set Outlookprogi = CreateObject("Outlook.Application")
  Set Email = Outlookprogi.CreateItem(0)

  On Error Resume Next
  With Email
  .to = "F"
  .CC = "P"
  .Subject = ActiveCell.Offset(0, 11).Value
  .Body = ActiveCell.Offset(0, -11).Value
  .Display
  End With
  Set Email = Nothing
  Set Outlookprogi = Nothing

  End Sub

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