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