Hirdetés
- Hírértékűvé tette a Lenovo, hogy az ASUS támogatja a kézikonzolját
- Mobilhálózatokra szabott EPYC-kel ugrik az 5G-s homokozóba az AMD
- Kiemelt figyelmet fordít a biztonságra az MSI szélsebes SSD-je
- Kis híján zsebre vágható 2 az 1-ben gépet villantott a TENKU
- A végletekig optimalizálja a SensorPaneleket az új AIDA64
- Ügyesen előzi meg a 12V-2x6 tápkonnektor leégését a Dell
- TCL LCD és LED TV-k
- Milyen belső merevlemezt vegyek?
- Milyen billentyűzetet vegyek?
- Multimédiás / PC-s hangfalszettek (2.0, 2.1, 5.1)
- Fejhallgató erősítő és DAC topik
- Objektívek topikja
- Milyen széket vegyek?
- 5.1, 7.1 és gamer fejhallgatók
- Hogy is néznek ki a gépeink?
-
PROHARDVER!

Ú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!
- PayPal
- Ügyesen előzi meg a 12V-2x6 tápkonnektor leégését a Dell
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- Építő/felújító topik
- Kínai és egyéb olcsó órák topikja
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- WoW avagy World of Warcraft -=MMORPG=-
- Okoslámpával vinne fényt az OpenAI a sötétségbe
- Diablo II: Classic és Resurrected
- TCL LCD és LED TV-k
- További aktív témák...
- Beszámítás! Lenovo LOQ 17IRX10 FHD Gamer notebook - i7 13650HX 24GB DDR5 1TB SSD RTX 5050 8GB
- iPhone 16 Pro 128GB Desert Titanium -1 ÉV GARANCIA - Kártyafüggetlen
- ÓRIÁSI AKCIÓK / MICROSOFT WINDOWS 10,11 / OFFICE 16,19,21,24 / VÍRUS,VPN VÉDELEM / SZÁMLA / 0-24
- Telefon felvásárlás!! iPhone 16/iPhone 16 Plus/iPhone 16 Pro/iPhone 16 Pro Max
- Azonnali készpénzes AMD Radeon RX 5000 sorozat videokártya felvásárlás személyesen / csomagküldéssel
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest



