Visual Basic para Aplicaciones - Problemas con codigo para fax

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)

El codigo que tienes no es para mandar fax, es para mandar un correo electronico

vamos a ver si esto te sirve. El codigo q te voy a poner es para lanzar el formulario en el q te pregunta q impresora elegir a la hora de imprimir y eso. Si tienes el FAX instalado en tu maquina o maquinas de red solo tienes q lanzarlo por ahi y voila. Los objetos q yo he incluido en el formulario sun un CommonDialog1 y un boton en el q la clickear en el ejecuta el codigo. Espero q te sirva :-)

Form1.CommonDialog1.Flags = cdlPDHidePrintToFile
Form1.CommonDialog1.Flags = cdlPDPageNums
Form1.CommonDialog1.CancelError = True
On Error GoTo errorimpresion:
Form1.CommonDialog1.ShowPrinter
On Error GoTo 0
(yo aqui lanzo un informe, tu aqui puedes poner lo q quieras)
crystal1.ReportFileName = "O:\camiones\Copia de informes\blablabla.rpt"
***********lineas para meter codigo de lo q quieras sacar*********
crystal1.Destination = crptToWindow
crystal1.WindowLeft = 100
crystal1.WindowTop = 100
crystal1.WindowTitle = "Listado"
crystal1.RetrieveDataFiles
On Error GoTo errorimpresion:
crystal1.Action = 1
*************fin de esas lineas*********************************
Exit Sub
errorimpresion:
If Err.Number = 32755 Then
On Error GoTo 0
Else
MsgBox "Error número : " & Err.Number & " --- " & Err.Description & " Error al generar el listado.", vbCritical, "Error"
On Error GoTo 0
End If

vamos a ver si esto te sirve. El codigo q te voy a poner es para lanzar el formulario en el q te pregunta q impresora elegir a la hora de imprimir y eso. Si tienes el FAX instalado en tu maquina o maquinas de red solo tienes q lanzarlo por ahi y voila. Los objetos q yo he incluido en el formulario sun un CommonDialog1 y un boton en el q la clickear en el ejecuta el codigo. Espero q te sirva :-)

Form1.CommonDialog1.Flags = cdlPDHidePrintToFile
Form1.CommonDialog1.Flags = cdlPDPageNums
Form1.CommonDialog1.CancelError = True
On Error GoTo errorimpresion:
Form1.CommonDialog1.ShowPrinter
On Error GoTo 0
(yo aqui lanzo un informe, tu aqui puedes poner lo q quieras)
crystal1.ReportFileName = "O:\camiones\Copia de informes\blablabla.rpt"
***********lineas para meter codigo de lo q quieras sacar*********
crystal1.Destination = crptToWindow
crystal1.WindowLeft = 100
crystal1.WindowTop = 100
crystal1.WindowTitle = "Listado"
crystal1.RetrieveDataFiles
On Error GoTo errorimpresion:
crystal1.Action = 1
*************fin de esas lineas*********************************
Exit Sub
errorimpresion:
If Err.Number = 32755 Then
On Error GoTo 0
Else
MsgBox "Error número : " & Err.Number & " --- " & Err.Description & " Error al generar el listado.", vbCritical, "Error"
On Error GoTo 0
End If