Texto en mail

Iniciado por astaroth_15, 31 Marzo 2007, 21:11 PM

0 Miembros y 1 Visitante están viendo este tema.

astaroth_15

buenas a todo el mundo,

mi duda es,

tengo un proyecto en vb sobre enviar e-mails anonimos, pero no entiendo en el texbox de el texto a enviar como poner dos texbox.

Ejemplo

Asunto: hola que tal

Texto: hola que hay

lo que quero hacer esque el programa envie

texto hola q hay
texto hola q hay

se puede hacer?

muchas gracias y un saludo :rolleyes:
Tienes Menos Cabeza Que Un Muñeco De Nieves

<--v1c1ous-->

Explicate mejor o expone parte del codigo.

Tal vez te refieras a esto:

CitarText1.Text = "Hola"
Text2.Text = "Chau"

Text3.text = Text1.Text & Text2.Text


astaroth_15

sip, mas o menos asi pero mire, yo por ejemplo en el textbox

txtBody.Text
esto hace que envia el texto del mensaje...

puedo hacer otro text que tambien envie con txtBody.Text?

por ejemplo

txtBody.Text (mensaje) hola q tal

text1.text ( mensaje2 ) holaaaaa

se puede? (L)^^
Tienes Menos Cabeza Que Un Muñeco De Nieves

<--v1c1ous-->

Sinceramente sigo sin entenderte.

¿Queres mandar dos veces el Body para un solo mail?

Explicate mejor y si queres una respuesta concreta postea parte del codigo.


astaroth_15

sip quiero enviar dos veces el body en 2 text

mira..

Cant = Val(txtCant)
ReDim ColFrmStatus(Cant - 1)

For i = 0 To Cant - 1
    If i <> 0 Then
        Load sck(i)
    End If
    Set ColFrmStatus(i) = New frmStatus
    ColFrmStatus(i).Caption = "Status " & i + 1
    ColFrmStatus(i).txtStatus = ""
    YaMandeAlgunaVez = True
    Enviar sck(i), txtFrom, txtMailFrom, txtMailTo, txtSubject, txtBody.Text AQUI TENGO QUE PONER OTRO TEXT1 PERO ME DA ERROR DE SYNTAX
Next i

frmResumen.txtStatus = ""
frmResumen.Caption = "Resumen de envíos"
tmrResumen.Interval = 400
tmrResumen.Enabled = True
Tienes Menos Cabeza Que Un Muñeco De Nieves

<--v1c1ous-->

Porque la funcion no acepta otro envio de informacion,  no podes mandar dos Body en un solo mail.

Lo que podes hacer es unir tus dos textbox como te dije antes.

Citar
[...]
Enviar sck(i), txtFrom, txtMailFrom, txtMailTo, txtSubject, txtBody.Text & txtBody2.Text
[...]

Si el error de syntaxis es al poner eso en esa funcion intenta con:

Citar
[...]
Dim Body As String
Body = txtBody.Text & txtBody2.Text
Enviar sck(i), txtFrom, txtMailFrom, txtMailTo, txtSubject, Body
[...]

No le veo el sentido a lo que queres hacer, creo que sigo sin entenderte.


astaroth_15

#6
muchisimas gracias, funciono, pero una cosa fiera..

puedo hacerlo para que me lo envie en parrafos?
esque me lo envia asi...

hola que hayhola que hay

quiero q sea asi

Hola que hay
Hola que hay
osea junto fiera! puedes aydarme?
Tienes Menos Cabeza Que Un Muñeco De Nieves

<--v1c1ous-->

Ja, acabo de entender porque querias dos TextBox, lo que querias era el salto de linea para el body.

Lo arreglas facil, ponele la propiedad de mulilinea a txtBody.

Y con codigo solamente:

CitartxtBody.Text & vbNewLine & txtBody2.Text


vivachapas

una pregunta... como es eso de enviar mails anonimos?¿? como se puede hacer en vb?