- Luck Dragon: Asszociációs játék. :)
- mefistofeles: Az elhízás nem akaratgyengeség!
- oriic: A TOP 10 legtöbb hozzászólással rendelkező PH! felhasználó
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- gban: Ingyen kellene, de tegnapra
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- potyautas: A teljesség igénye
- Meggyi001: Párizs a magasból, ahol nem Eiffel a főszereplő...
- D1Rect: Nagy "hülyétkapokazapróktól" topik
-
LOGOUT

Új hozzászólás Aktív témák
-
válasz
sztanozs
#11919
üzenetére
Így gondolod:
If Not IsNull(rs!Email) = True Then strEmail = rs!Email
If Not IsNull(rs!Firstname) = True Then strFirstnamee = rs!Firstname
If Not IsNull(rs!Lastname) = True Then strLastname = rs!Lastname
If Not IsNull(rs!Usernumber) = True Then strUsernumber = rs!Usernumber
If strEmail = "" Then MsgBox "szöveg": rs.MoveNext: Exit GoTo ContinueLoop
If strFirstname = "" Then MsgBox "szöveg": rs.MoveNext: Exit GoTo ContinueLoop
If strLastname= "" Then MsgBox "szöveg": rs.MoveNext: Exit GoTo ContinueLoop
If strUsernumber = "" Then MsgBox "szöveg": rs.MoveNext: Exit GoTo ContinueLoop
strSubject = "Minden ok"
strHTMLHeader = "<!DOCTYPE html><html><head><style>p {font: 11pt Calibri; text-align: left;}</style><style>td {border:1px solid; font: 11pt Calibri; text-align: center;}</style><style>th {border:1px solid; font: 11pt Calibri;}</style></head>"
strTitle = "<p>Hallo</p>"
strMessage = "<p>Easy :)</p>"
'HTML Footer
strMessage = strMessage & "</body></html>"
With objMailItem
If Not strEmail = "" Then .To = strEmail
.Subject = strSubject
.HTMLBody = strHTMLHeader & strTitle & strMessage
.Display
.Save
End With
rs.MoveNext
ContinueLoop:
Loop
rs.CloseEzek után nekem Syntxhibát ad ki a GoTo-nál

Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- BestBuy topik
- Kerékpárosok, bringások ide!
- Képregény topik
- PlayStation 5
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Otthoni hálózat és internet megosztás
- AMD Catalyst™ driverek topikja
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- Képhibák a GeForce-on? Az NVIDIA szerint egy Windows frissítés okozza
- PlayStation 1 / 2
- További aktív témák...
- új 15 hüvelykes MacBook Air M4 256GB SSD sky blue égkék Apple magyar 1 év garancia
- új Harman Kardon Onyx Studio 9 hordozható Bluetooth hangszóró ezüst 1 év garancia
- Seasonic Focus 750W 80 PLUS Gold / Csavarmatricás / BESZÁMÍTÁS OK!
- Inno3D RTX 2070 Twin X2
- Seagate FireCuda 2TB HDD 100% / BESZÁMÍTÁS OK!
- BESZÁMÍTÁS! Nintendo Switch OLED 64GB játékkonzol garanciával hibátlan működéssel
- FRISS ÁRU!!! Dell Latitude Precision Üzleti gépek, 2-in-1 gépek, 3-11. gen.
- Tp-Link Archer C64 Dual Band Full Gigabit Wi-Fi router
- Azonnali készpénzes AMD CPU AMD VGA számítógép felvásárlás személyesen / postával korrekt áron
- Apple iPhone Xr 64GB piros / ÚJ AKKU/ ÚJ KIJELZŐ / 12 hó jótállás
Állásajánlatok
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest



