Agregar Firma a correo Outlook con VB6
Publicado por turbiodesk (36 intervenciones) el 05/04/2007 02:06:35
Saludos coders,
Utilizo el siguiente código para envio de correo por Outlook 2003:
Public Sub enviaMail(para As String, cc As String, asunto As String, _
cuerpo As String, adjunto() As String)
Dim i As Integer
Dim oOApp As Outlook.Application
Dim oOMail As Outlook.MailItem
Set oOApp = CreateObject("Outlook.Application")
Set oOMail = oOApp.CreateItem(olMailItem)
With oOMail
.To = para
.cc = cc
.Subject = asunto
.Body = cuerpo
For i = 0 To UBound(adjunto)
.Attachments.Add adjunto(i), olByValue, 1
Next i
.Display
End With
End Sub
Mi pregunta es como puedo agregar una firma al cuerpo de los mensajes a enviar.
Gracias,
D3SK
Utilizo el siguiente código para envio de correo por Outlook 2003:
Public Sub enviaMail(para As String, cc As String, asunto As String, _
cuerpo As String, adjunto() As String)
Dim i As Integer
Dim oOApp As Outlook.Application
Dim oOMail As Outlook.MailItem
Set oOApp = CreateObject("Outlook.Application")
Set oOMail = oOApp.CreateItem(olMailItem)
With oOMail
.To = para
.cc = cc
.Subject = asunto
.Body = cuerpo
For i = 0 To UBound(adjunto)
.Attachments.Add adjunto(i), olByValue, 1
Next i
.Display
End With
End Sub
Mi pregunta es como puedo agregar una firma al cuerpo de los mensajes a enviar.
Gracias,
D3SK
Valora esta pregunta


0