Visual Basic - Problemas con codigo para fax

Life is soft - evento anual de software empresarial
 
Vista:

Problemas con codigo para fax

Publicado por lenilax (165 intervenciones) el 05/04/2002 11:06:30
Amigos, tengo el codigo supuestamente necesario para enviar fax desde una aplicacion Visual. Lo he intentado utilizar pero tengo algunos problemas. Soy novato en esto.
Lo que sucede es que puse el codigo en un Standard exe. Agregue un boton (Command1) al form. Referencie Microsoft Outlook 9.0 Objects Library y puse un numero de fax donde corresponde (TelNo = "Numero de Fax") y adjunte un archivo donde corresponde tambien (.Attachments.Add "El Fax") y lo hice correr. El punto es que no me da ningun error pero tampoco envia el fax.
Les mando una copia de como tengo actualmente el codigo en mi aplicacion por si lo necesitan.
Dim objOutlook As New Outlook.Application
Dim objOutlookMsg As Outlook.mailitem
Dim TelNo As String
Dim n As Integer
Private Sub Command1_click()
TelNo = "5565458"
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
.To = "[Fax:" & TelNo & "]"
.Subject = "El asunto"
.Body = "En Mesaje"
.Importance = olImportanceHigh
.Attachments.Add "C:\....\acentos.txt"
.Send
End With
Set objOutlook = Nothing
End Sub
Por favor, si alguien puede darme una mano se lo agradeceria mucho. Cualquier cosa sera para mi de gran ayuda
(sus respuestas, codigo de ejemplo, etc)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder