Enviar mails desde visual con Outlook
Publicado por klaus (1 intervención) el 18/03/2004 12:07:56
Hola colegas. Tengo este cogido fuente para enviar mails automaticamente desde visual con el outlook express. El problema que tengo es que cuando llega al send, aun poniendolo a false, me sale un cuadro de dialogo que me dice que un programa esta intentando enviar un correo en mi nombre. Como puedo hacer para que esto no me salga y se envie automaticamente???
Gracias.
MAPIMessages1.SessionID = MAPISession1.SessionID
With MAPIMessages1
MAPIMessages1.Compose
MAPIMessages1.MsgIndex = -1
MAPIMessages1.MsgNoteText = Text5.Text
MAPIMessages1.RecipAddress = Text2.Text
MAPIMessages1.MsgSubject = Text3.Text
If Text4.Text <> "" Then
cuenta = InStr(1, Text4.Text, ";")
While cuenta <> 0
adjunto = Mid(Text4.Text, pos, cuenta - pos)
MAPIMessages1.AttachmentIndex = i
i = i + 1
MAPIMessages1.AttachmentPathName = adjunto
pos = cuenta + 1
cuenta = InStr(pos, Text4.Text, ";")
Wend
adjunto = Mid(Text4.Text, pos)
MAPIMessages1.AttachmentIndex = i
MAPIMessages1.AttachmentPathName = adjunto
End If
MAPIMessages1.AddressResolveUI = True
MAPIMessages1.ResolveName
MAPIMessages1.Send (False) ' -> aqui es donde falla
End With
MAPISession1.SignOff
.......
Gracias.
MAPIMessages1.SessionID = MAPISession1.SessionID
With MAPIMessages1
MAPIMessages1.Compose
MAPIMessages1.MsgIndex = -1
MAPIMessages1.MsgNoteText = Text5.Text
MAPIMessages1.RecipAddress = Text2.Text
MAPIMessages1.MsgSubject = Text3.Text
If Text4.Text <> "" Then
cuenta = InStr(1, Text4.Text, ";")
While cuenta <> 0
adjunto = Mid(Text4.Text, pos, cuenta - pos)
MAPIMessages1.AttachmentIndex = i
i = i + 1
MAPIMessages1.AttachmentPathName = adjunto
pos = cuenta + 1
cuenta = InStr(pos, Text4.Text, ";")
Wend
adjunto = Mid(Text4.Text, pos)
MAPIMessages1.AttachmentIndex = i
MAPIMessages1.AttachmentPathName = adjunto
End If
MAPIMessages1.AddressResolveUI = True
MAPIMessages1.ResolveName
MAPIMessages1.Send (False) ' -> aqui es donde falla
End With
MAPISession1.SignOff
.......
Valora esta pregunta


0