Mail Html Duda..!

[ssccaann43]

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í

[LeandroA]

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

Código: [Seleccionar]

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

Código: [Seleccionar]

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.

[ssccaann43]

Grosoooooo capo...! =) Gracias Leandro...!