Hirdetés

  2. Fórumok
  3. Szoftverfejlesztés
  4. Programozás topic
  5. (kiemelt téma)

Új hozzászólás Aktív témák

  • #11920 total90 támogató sztanozs #11919
    Új Válasz #11920
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    total90

    támogató

    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.Close

    Ezek után nekem Syntxhibát ad ki a GoTo-nál :(

Új hozzászólás Aktív témák

Hirdetés