VBA E-mail küldés
2021-10-15T09:57:23+02:00
2021-10-16T23:29:14+02:00
2022-08-12T05:00:30+02:00
szaboz80
Sziasztok! Segítségetekre van szükségem... A feladatom, hogy van egy 3 oszlopos táblám: B: név, C egy marker, D e-mail. Szeretném, ha a C oszlopba egy "x"-t teszek, arra címre menjen egy előre meghatározott tartalmú e-mail. Valahol az értékátadásakor vagyok megcsúszva. A forráskód:

Sub Request(ByVal oszl As Integer, ByVal oszl As Integer)

Dim oszl, sor
Dim OutlookPrg As Object
Dim Email As Object

Set OutlookPrg = CreateObject("Outlook.Application")
Set Email = OutlookPrg.CreateItem(0)


sor = 1
oszl = 2


Worksheets("Próba").Cells(1, 2).Select

Do While Worksheets("Próba").Cells(sor, oszl) <> "VÉGE"

    If Worksheets("Próba").Cells(sor, oszl + 1) = "x" Then
        With Email
            .To = Worksheets("Próba").Cells(sor, oszl + 2)
            .Subject = Worksheets("Próba").Cells(1, 13)
            .Body = Worksheets("Próba").Cells(2, 13)
            .Send
        End With
    End If
    
    sor = sor + 1
Loop


End Sub

Segítségeteket előre is köszönöm!
Mutasd a teljes hozzászólást!

  • Szia!
    Mi a hibajelenség és a hibaüzenet?
    Én azt gondolom, hogy az új email létrehozását a cikluson belülre kellene tenni.
    Üdv.
    Mutasd a teljes hozzászólást!
  • A hibajelenség: az End If-ig lefut, de a sor+1-t nem hajtja végre...
    Mutasd a teljes hozzászólást!
  • Szia!
    0. Miért van 2 ugyanolyan nevű paramétere a Sub Request eljárásnak (oszl, oszl)? Egyáltalán miért van paraméter, ha nem azt használod, hanem definiálsz új változókat?
    1. A Sub Request paramétereit hol adod át?
    2. Miért definiálod ismét az oszl és sor változókat - hiszen azok már paraméterként megvannak.
    3. Épp az előzőek miatt, ha paraméterként adod át az értékeket, akkor miért adsz nekik ismételten kezdőértéket?
    Továbbá ismét kérdezem, milyen hibaüzenetet kapsz, amikor a sor=sor+1 utasítást nem hajtja végre?
    Próbáld paraméterek nélkül a Sub Request eljárást definiálni (csak () legyen a név után).
    Üdv.
    Mutasd a teljes hozzászólást!
abcd