Hirdetés
- Meggyi001: Áram nélkül....méltóság nélkül.....
- gban: Ingyen kellene, de tegnapra
- Meggyi001: Amire figyelned kell Párizsban is...
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- sziku69: Szólánc.
- Luck Dragon: MárkaLánc
- Mr Dini: Mindent a StreamSharkról!
- Gurulunk, WAZE?!
- Parci: Milyen mosógépet vegyek?
-
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!
- Poco X8 Pro Max - nem kell ide sem bank, sem akkubank
- Meggyi001: Áram nélkül....méltóság nélkül.....
- Battlefield 6
- Autós topik
- Hogyan verte le egy telefon chip az egész laptop ipart? – x86 vs ARM
- Billentyűzet gondom van
- PlayStation 5
- Azonnali informatikai kérdések órája
- alza vélemények - tapasztalatok
- Óra topik
- További aktív témák...
- REFURBISHED és ÚJ - Lenovo ThinkPad Ultra Docking Station (40AJ)
- Apple iPhone 13 128 GB Midnight 100% Akkumulátor 1 év Garancia Beszámítás Házhozszállítás
- iPhone 16 pro 128GB Sivatagi Titán - 27% ÁFA (0395)
- BESZÁMÍTÁS! Asus Z390 i7 9700 16GB DDR4 512GB SSD RTX 2080 Super 8GB Aerocool P500B Digi ARGB 750W
- AKCIÓ! ASUS H110M i5 6500 8GB DDR4 120GB SSD 500GB HDD GTX 1050Ti 4GB Zalman T3 Plus NBASE 600W
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


