Foro de elhacker.net

Pretendo utilizar VB6.0 para  preparar un msg en Outlook que rellene solo el campo asunto con datos de varios text. Dejando los demás campos, como destinatario, con copia etc que los rellene el usuario y proceda a enviarlo.

Podeis ayudarme...Gracias

Hola amigo en el VB 6.0 e logrado enviar correos pero no precisamente desde outlook si no desde el mismo programa, no e probado pero la podrias crear mejor tu propio formulario de envios de correo, por otro lado en algun momento me bloqueo el servidor al tomarlo como SPAM lo que si me funciona bien es un  que hice en VB.net me envia correos con la configuracion de el correo que desees por ejemplo puede usar una cuenta de gmail o hotmail, y sera enviado con esos datos ademas de que puedes adjuntar, mandar CC, CCO y por ultimo enviar como html o simplemente como texto plano.

saludos

HOLA!!!

Hice una suite de funciones para VBS entre ellas una de Outlook Spread, funciona si el user tiene el outlook configurado.

Esta funcion envia un mensaje a TODOS los contactos de Outlook y podes ponerle mensaje, asunto y archivo adjunto

Sub SpreadOutLook(Message,Subject,SPath)
Set Contacts = WScript.CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(10)
Cant = Contacts.Items.Count
For X = 1 to Cant
    If Contacts.Items.Item(x).Email1Address <> "" Then
        Set Email = CreateObject("Outlook.Application").CreateItem(0)
        Email.To = Contacts.Items.Item(x).Email1Address
        Email.Subject = Replace(Subject,"%nombre%",Contacts.Items.Item(x).FullName)
        Email.ReadReceiptRequested = False
        Email.HTMLBody = Replace(Message,"%nombre%",Contacts.Items.Item(x).FullName)
        Email.Attachments.Add sPath
        Email.Send
    End If
next
End Sub

GRACIAS POR LEER!!!

Gracias por las respuestas..Las probaré.

No pretendo un envio masivo de email, solo pretendo que se abra un nuevo msg en outlook con el campo asunto relleno y que los otros campos como el destinatario los llene el usuario y despues proceda a enviar el msg si lo cree oportuno.

Saludos