Hirdetés
- 5 GHz körülre gyorsulnak a mobilchipek, a Huawei lemaradásban
- Motorola Edge 70 Fusion – stílusosan főznek
- Félő, hogy az okosszemüveg a szexuális zaklatók játékszere lesz
- Snapdragon 8 Elite Gen 5 és folyadékhűtés jöhet a RedMagic új gamer táblagépébe
- Nagyobb akkumulátorral jöhet a Motorola Razr 70 Ultra, másban alig változna
- Félő, hogy az okosszemüveg a szexuális zaklatók játékszere lesz
- iPhone topik
- 5 GHz körülre gyorsulnak a mobilchipek, a Huawei lemaradásban
- 4G-s verzióban is választható a Tecno Spark 50
- Google Pixel topik
- Xiaomi 17 Ultra - jó az optikája
- AI: tanulj már meg rendesen pózolni, ember!
- Xiaomi 13 - felnőni nehéz
- Motorola Edge 70 Fusion – stílusosan főznek
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
-
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!
- Micron 5200 ECO 480 GB 2,5 SATA Enterprise/Datacenter Server SSD
- Komplett gép: i7 12700 - 4.90 Ghz / 32 GB DDR5 / 512 GB NVMe / Win 11 Pro - HP Z2 tower G9
- Asztali PC , i5 9500T , 1660 Super , 16GB DDR4 , 512GB m.2
- Asztali PC , i5 12400F , RX 6600 XT , 16GB RAM , 512GB nVME , 1TB HDD
- iPhone 13 256GB Midnight
- GAMER PC! i7-14700 / RTX 5080 / 32GB DDR5 / 1TB NVMe / 1000w Gold / BeszámítOK !
- 3440 x 1440 100Hz!!! 65W PD 34" CURVED 1800R Samsung C34H890WGR - 1 év garancia!
- PEACH Laminálógép és vágógép (6 in 1 Laminator & Trimmer PBP350 A4)
- HIBÁTLAN iPhone 12 Pro 256GB Graphite - 1 ÉV GARANCIA - Kártyafüggetlen, MS3283
- ÚJ Magic Keyboard billentyűzetek/ USB-C - Lighning/ 27% Áfás/ Ingyenes szállítás!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest



