Discussione chiusa
Visualizzazione dei risultati da 1 a 2 su 2

Ciclare gruppi di textbox

  1. #1
    Galileo non è in linea Novello
    Buongiorno a tutti, sono nuova del forum e approfitto subito per chiedere un aiuto.



    Ho 6 textbox su una userform.
    Nelle textbox numerate da 1 a 3 vanno scritti numeri
    1
    2
    2


    Nelle textbox numerate da 4 a 6 vanno scritti i codici prodotto.
    921354544
    921444555
    921444556


    Con un ciclo devo leggere il contenuto delle textbox 1-3 e 4-6 e inserirli nel corpo della mail in questo modo:

    921354544 1
    921444555 2
    921444556 2


    Posto qui sotto il codice che ho realizzato, ma ..... serve aiuto per il corretto funzionamento sigh

    Grazie infinite a chi vorrà darmi dritte

    Sub AutoEmail()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim cell As Range
    Dim strbody As String
    Dim controls As String
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")

    On Error GoTo cleanup

    For n = 1 To 3
    For i = 4 To 6
    txtB = UserForm1.controls("TextBox" & n).Value
    txtA = UserForm1.controls("TextBox" & i).Value

    If txtB <> "" Then
    If txtA <> "" Then
    strbody = strbody

    Else
    Exit Sub
    End If
    End If

    strbody = strbody & txtA & "&nbsp;" & "&nbsp;" & "&nbsp;" & "&nbsp;" & "&nbsp;" & "&nbsp;" & strbody & txtB & " pz" & "<BR>"

    cucu = "<p style='font-family:Arial;font-size:12pt'>" & "Buongiorno,<br><br>" & _
    "Si chiedono in rientro le seguenti LS: " & "</p style>" & _
    "<p style='font-family:Arial;font-size:12pt'><FONT color=""#0000CD""><B>" & strbody & "</B>" & "&nbsp;&nbsp" & _
    "</FONT color=""#000000"">" & "</B>" & _
    "<p style='font-family:Arial;font-size:12pt'><FONT color=""#000000"">" & _
    "La merce dovrà essere trasferita sul c.c. " & con & _
    "&nbsp;&nbsp; comm. " & comm & "<br><br>" & _
    "<H3>" & moti & "</H3>" & "<p style='font-family:Arial;font-size:12pt'>" & rich & "<br><br>" & _
    "<p style='font-family:Arial;font-size:12pt'>Grazie,</p>"


    Set OutMail = OutApp.CreateItem(0)
    On Error Resume Next

    With OutMail
    .To = "infolab@gmail.com"
    .Subject = "Bla Bla Bla Bla"
    .HTMLBody = cucu

    .Display
    End With
    Next
    Next
    On Error GoTo 0
    Set OutMail = Nothing
    cleanup:
    Set OutApp = Nothing
    Application.ScreenUpdating = True
    End Sub

  2. #2
    Per favore, leggi il regolamento, qui non si propongono problemi tecnici, questa è la sezione Presentazioni.

    Inoltre non basta dire "serve aiuto" ma devi indicare malfunzionamenti, errori, comportamenti anomali ed eventualmente le linee di codice in cui questi errori avvengono. Se non spieghi in dettaglio il problema non sarà possibile avere aiuti o sarà necessario fare ulteriori domande e impiegare più tempo.

    Infine, se posti codice usa i tag CODE, indentandolo correttamente.

    Ti consiglio di rimuovere le

    On Error Resume Next

    e controllare gli eventuali errori.

    Cerca la sezione adatta e proponi il quesito, questo thread viene chiuso.
    Ultima modifica di AntonioG; 30-03-2017 10:09 
    ℹ️ Leggi di più su AntonioG ...

Discussione chiusa

Potrebbero interessarti anche ...

  1. Ciclare Controllo TextBox su risultato Recordset
    Da Diego1966 nel forum Microsoft Access
    Risposte: 16
    Ultimo Post: 13-04-2019, 23:12
  2. Ciclare TreeView
    Da pierovb nel forum Visual Basic 6
    Risposte: 10
    Ultimo Post: 18-12-2015, 15:09
  3. Ciclare le textbox....ma non me la riconosce come tale !?!?
    Da Kurdt19XX nel forum Microsoft Excel
    Risposte: 6
    Ultimo Post: 08-01-2015, 09:44
  4. Ciclare con for
    Da Gtn nel forum Microsoft Word
    Risposte: 0
    Ultimo Post: 08-09-2012, 13:08
  5. Ciclare un evento
    Da X_Files nel forum Microsoft Access
    Risposte: 7
    Ultimo Post: 22-04-2012, 00:05