Vane, cual es el problema exactamente cuando queres mandar a mas de un destinatario ?
Te da algún error (código, etc..) o simplemente no pasa nada.. Tengo algunas rutinas de comunicacion en vb6, (con winsock ) asi que si me mandas mas especifico, quizás, solo quizás te pueda ayudar Si queres mandame a mi mail asi no perturbamos a la lista saludos www.adamil.com.ar From: [email protected] [mailto:[email protected]] On Behalf Of Vanesa Bdm Sent: Jueves, 11 de Junio de 2009 09:15 To: vbusers List Member Subject: [vbusers] Enviar sms Nadie tiene idea? Seguramente alguno de uds hizo algo de esto.... Saludos --- El mar 9-jun-09, Vanesa Bdm <[email protected]> escribió: De: Vanesa Bdm <[email protected]> Asunto: [vbusers] Enviar sms Para: "vbusers List Member" <[email protected]> Fecha: martes, 9 de junio de 2009, 7:21 pm Hola a todos.... Recurro a uds porque no puedo solucionar hace varios dias un tema con sms en visual basic 6. Tengo un codigo que envia sms utilizando el hyperterminal, es medio largo pero funciona bien, el problema es cuando necesito enviar un sms a mas de un destinatario. A continuacion pongo el codigo que envia los sms. Private Static Sub MSComm1_OnComm() Dim EVMsg$ Dim ERMsg$ ' Branch according to the CommEvent property. Select Case MSComm1.CommEvent ' Event messages. Case comEvReceive Dim Buffer As Variant Buffer = MSComm1.Input If confirm_linea1.Text = "" Then ShowData linea1, (StrConv(Buffer, vbUnicode)) tmr_linea1.Enabled = True tmr_linea1.Interval = 2000 ElseIf confirm_linea2.Text = "" Then ShowData linea2, (StrConv(Buffer, vbUnicode)) tmr_linea2.Enabled = True tmr_linea2.Interval = 2000 ElseIf confirm_linea3.Text = "" Then ShowData linea3, (StrConv(Buffer, vbUnicode)) tmr_linea3.Enabled = True tmr_linea3.Interval = 2000 ElseIf confirm_linea4.Text = "" Then ShowData linea4, (StrConv(Buffer, vbUnicode)) tmr_linea4.Enabled = True tmr_linea4.Interval = 2000 Else ShowData Text2, (StrConv(Buffer, vbUnicode)) ' MSComm1.PortOpen = False End If Case comEvSend Case comEvCTS EVMsg$ = "Change in CTS Detected" Case comEvDSR EVMsg$ = "Change in DSR Detected" Case comEvCD EVMsg$ = "Change in CD Detected" Case comEvRing EVMsg$ = "The Phone is Ringing" Case comEvEOF EVMsg$ = "End of File Detected" ' Error messages. Case comBreak ERMsg$ = "Break Received" Case comCDTO ERMsg$ = "Carrier Detect Timeout" Case comCTSTO ERMsg$ = "CTS Timeout" Case comDCB ERMsg$ = "Error retrieving DCB" Case comDSRTO ERMsg$ = "DSR Timeout" Case comFrame ERMsg$ = "Framing Error" Case comOverrun ERMsg$ = "Overrun Error" Case comRxOver ERMsg$ = "Receive Buffer Overflow" Case comRxParity ERMsg$ = "Parity Error" Case comTxFull ERMsg$ = "Transmit Buffer Full" Case Else ERMsg$ = "Unknown error or event" End Select End Sub Basicamente lo que hace es ir escribiendo los comando at en un textbox y esperando las respuesta y de ahi va avanzando hasta que manda el mensaje. El procedimiento showdata lo que hace es mostrar solamente la informacion recibida del hiperterminal. Como veran es medio engorroso el codigo, pero lo arme de algo que encontre buscando por internet. Si alguien me puede dar una idea o un metodo mas facil para solucionar este tema se los agradecere. Saludos y muchas gracias de antemano por su ayuda. Saludos _____ Yahoo! Cocina Recetas prácticas y comida saludable Visitá http://ar.mujer..yahoo.com/cocina/ _____ ¡Viví la mejor experiencia en la web! Descargá gratis el nuevo Internet Explorer 8 http://downloads.yahoo.com/ieak8/?l=ar __________ Information from ESET NOD32 Antivirus, version of virus signature database 4148 (20090611) __________ The message was checked by ESET NOD32 Antivirus. http://www.eset.com
