Javier
16 de Febrero del 2006

Tengo el siguiente codigo: todo funciona perfectamente pero se abre outlook
2000 y se queda con la pantalla de nuevo con el mensaje adjunto y justo le
tengo que dar a enviar, no puede hacerlo automaticamente?

Dim Sarchivo, Sarchivo2, SzDate, SzHora, Smiarchivo As String
Private Sub Form_Load()

Me.MAPISession1.UserName = "Microsoft Outlook Internet Settings"
Me.MAPISession1.NewSession = True
Me.MAPISession1.SignOn

SzDate = Format(Date, "DDMMYY")
SzHora = Format(Time, "HHMM")

SzHora = Left(SzHora, 2)
SzDate = SzDate & "-" & SzHora


Sarchivo = "i:pruebaprueba.TXT"
Sarchivo2 = "i:pruebaenviados" & SzDate & ".txt"

Smiarchivo = Dir("i:pruebaprueba.TXT")

If Smiarchivo <> "" Then

FileCopy Sarchivo, Sarchivo2
Kill Sarchivo



End If


Dim sCorreo As String
sCorreo = "[email protected]"

With MAPIMessages1
.SessionID = MAPISession1.SessionID
.Compose
.RecipIndex = 0
.RecipAddress = sCorreo 'direccion donde lo envias
.RecipDisplayName = sCorreo
.MsgNoteText = "A" 'cuerpo del mensaje
.MsgSubject = Right(Sarchivo2, 13) 'Asunto del mensaje
.AttachmentIndex = 0
.AttachmentPosition = 0
.AttachmentName = Right(Sarchivo2, 13) 'nombre del archivo a adjuntar
.AttachmentPathName = Sarchivo2 'ruta del archivo adjuntar
.Send True
End With
MAPISession1.SignOff
End

End Sub
¿Le ha ayudado esta ex