- iPhone topik
- Fotók, videók mobillal
- Apple iPhone Air - almacsutka
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- Honor 200 Pro - mobilportré
- Xiaomi 15 - kicsi telefon nagy energiával
- Google Pixel topik
- Android alkalmazások - szoftver kibeszélő topik
- A készlethiány jelezheti, jön az iPhone 16e és iPad Air utódja
- Szívós, szép és kitartó az új OnePlus óra
-
Mobilarena

Ú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!
- Samsung Galaxy S23 Ultra 5G 256GB, Kártyafüggetlen, 1 Év Garanciával
- Új Gamer PC - Ryzen 7 5700X / RTX 5060 Ti / B550M / 16GB RAM - 3600MHz / 1TB SSD / 600W
- Új 4K Gamer PC Ryzen 5 9600X/RX 5070 12Gb/2x16Gb DDR5 6000Mhz/500Gb NV3 NVME SSD/2-3Év gari
- Új 2K Gamer PC Ryzen 5 9600X/RX 9070 XT 16Gb/2x16Gb DDR5 6000Mhz/500Gb NV3 NVME SSD/2-3Év gari
- LG 55QNED823RE / QNED / 55" - 140 cm / 4K UHD / 120Hz & 4ms / HDR Dolby Vision / FreeSync + HDMI 2.1
- HP ZBOOK Firefly 16 G10 /i7-1355U/16GB/1 TB SSD/FHD+/IPS/NVIDIA 4 GB Magyar bill
- Dell Precision 7750,17.3" FHD,i7-10875H,32GB DDR4,256GB SSD,RTX 3000 6GB VGA,WIN11
- Gamer PC-Számítógép! Csere-Beszámítás! R5 2600 / RX 5700XT 8GB / 16GB DDR4 / 256SSD + 1TB HDD!
- Kezdő Gamer PC-Számítógép! I5 6500 / GTX 1050Ti / 8GB DDR4 / 240GB SSD
- HIBÁTLAN iPhone 11 Pro Max 64GB Space Grey-1 ÉV GARANCIA - Kártyafüggetlen, MS4415
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest




