Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: ssccaann43 en Agosto 09, 2011, 07:23:35 pm
-
Bien, usando ese proyecto de Leandro, para realizar envíos masivos de correos, me surge una duda...
Cómo puedo hacer si quiero que al cargar la aplicación ya tenga un texto predeterminado con información que pretendo pasarle según vaya enviando...? Porque se usa un Webbrowser, y ni idea de como usar dicho control...!
Es decír.. Si envio un correo a Leandro, en el texto del mensaje coloque: Sr. Leandro Ascierto...
Si paso de usuario y lo envio a Luciano, en el texto coloque: Sr. Luciano Lodola...
Como podría hacer eso?
Adjunto dejo el proyecto que leandro desarrollo, y que es el que pretendo usar..
Saludos..
Bajar Aquí (http://www.megaupload.com/?d=CCRTUMPB)
-
Hola scan bueno esta un poco viejo es proyecto por lo que hay cosas que no me gustan en lo personal pero bueno, no se cual es tu idea si ejecutarlo como un formulario que esta dentro de tu proyecto o una aplicacion aparte la cual le envias un Command asi que te doy un ejemplo modificando el Form_Load y despues vos resolves el resto
Private Sub Form_Load()
Dim i As Integer
Dim DirSmyles As String
Dim File As String
Set mcIni = New clsIni
Set c_ToolBar1 = New cSubclassToolBar
Set c_ToolBar2 = New cSubclassToolBar
For i = 101 To 118
ImageList1.ListImages.Add , "k" & i - 100, LoadResPicture(i, vbResIcon)
Next
Toolbar1.Imagelist = ImageList1
For i = 1 To Toolbar1.Buttons.Count
If Toolbar1.Buttons(i).Key <> "" Then
Toolbar1.Buttons(i).Image = Toolbar1.Buttons(i).Key
End If
Next
For i = 119 To 123
ImageList2.ListImages.Add , "k" & i, LoadResPicture(i, vbResIcon)
Next
Toolbar2.Imagelist = ImageList2
For i = 1 To 6
If Toolbar2.Buttons(i).Key <> "" Then
Toolbar2.Buttons(i).Image = Toolbar2.Buttons(i).Key
End If
Next
DirSmyles = Dir(App.Path & "\Smyles\")
Do While DirSmyles <> ""
File = App.Path & "\Smyles\" & DirSmyles
ImageListSmyles.ListImages.Add , File, LoadPicture(File)
DirSmyles = Dir
Loop
c_ToolBar1.SubClassToolBar Toolbar1.hwnd
c_ToolBar2.SubClassToolBar Toolbar2.hwnd, True
SubMnuSkin_Click 0
WebBrowser1.RegisterAsDropTarget = False
WebBrowser1.Navigate "about:blanck"
Do: DoEvents: Loop Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
WebBrowser1.Document.write "<style>p.{margin:0PX}</style>"
WebBrowser1.Document.write "<b>Aqui</b> lo que <u>quieras mostrar</u>"
WebBrowser1.Document.designMode = "On"
Set HTML = WebBrowser1.Document
CoolComboBox1.Text = "Times New Roman"
CoolComboBox2.Text = "3"
mPrioridad = 1
End Sub
fijate que en esta linea podes poner lo que quieras inclusive utilizando html
WebBrowser1.Document.write "<b>Aqui</b> lo que <u>quieras mostrar</u>"
Esta lindo para seguir este proyecto voy a ver si un dia de estos lo termino bien le quito algunas cosas de más y le pongo otras.
Saludos.
-
Grosoooooo capo...! =) Gracias Leandro...!