Pasar y recibir parámetros
Hola:
Necesito que alguien me de una manito con esto:
Tengo que leer un archivo de texto que contiene
varias filas con 2 datos cada una: un nombre de
archivo y una dirección email. La idea es leer este
archivo y pasarle a otro programa los valores leídos
en 1 o dos parámetros para que este se encargue
de adjuntar y enviar el archivo.
¿Cómo paso los parámetros y como los recibo?
Si pueden ponerme un ejemplo mucho mejor.
Muchísimas gracias
Necesito que alguien me de una manito con esto:
Tengo que leer un archivo de texto que contiene
varias filas con 2 datos cada una: un nombre de
archivo y una dirección email. La idea es leer este
archivo y pasarle a otro programa los valores leídos
en 1 o dos parámetros para que este se encargue
de adjuntar y enviar el archivo.
¿Cómo paso los parámetros y como los recibo?
Si pueden ponerme un ejemplo mucho mejor.
Muchísimas gracias
1 respuesta
Respuesta de orande
1
Creo que esto es lo que quieres:
Sub LeerFichero()
Dim iFile As Integer
Dim sLinea As String
Dim sNombre As String
Dim sEmail As String
iFile = FreeFile
Open fichero For Input As #iiFile
Do While Not EOF(iAux1)
Input #iFile, sLinea
'Lo de coger el nombre y el mail
'depende de sin son columnas de
'tamaño fijo o variables separadas
'por caracter especial (p.ej: vbTab).
sNombre = Left(sLinea, 100)
sEMail = Right(sLinea, 50)
pEnviarMail sNombre, sEMail
Loop
Close #iFile
End Sub
Sub pEnviarMail(Byval Nombre as String, byval EMail as string)
'Aqui tienes las dos variables recibidas
'como parametros para realizar lo que
'quieras
End Sub
Sub LeerFichero()
Dim iFile As Integer
Dim sLinea As String
Dim sNombre As String
Dim sEmail As String
iFile = FreeFile
Open fichero For Input As #iiFile
Do While Not EOF(iAux1)
Input #iFile, sLinea
'Lo de coger el nombre y el mail
'depende de sin son columnas de
'tamaño fijo o variables separadas
'por caracter especial (p.ej: vbTab).
sNombre = Left(sLinea, 100)
sEMail = Right(sLinea, 50)
pEnviarMail sNombre, sEMail
Loop
Close #iFile
End Sub
Sub pEnviarMail(Byval Nombre as String, byval EMail as string)
'Aqui tienes las dos variables recibidas
'como parametros para realizar lo que
'quieras
End Sub
