Macro para enviar correo sin formato

[jhonysoles]

ya tengo mi macro que envia correos masivamente desde el excel. Por un tema operativo, necesito que este correo antes de enviarse se convierta en texto sin formato.

¿Cual sería el comando?

[Smako]

¿Como tienes tu código en la parte donde envias el correo?

[jhonysoles]

¿Como tienes tu código en la parte donde envias el correo?

Este es mi codigo:

Sub enviar_mailMSExel(funcion As String, rol As String, matricula As String)

Sheets("Correo_HD").Select

Dim I As Integer

Dim strDate As String, wKTemp As Workbook, strBorrar

Sheets("Correo_HD").Select

ActiveSheet.Copy

Set wKTemp = ActiveWorkbook

With wKTemp

strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")

.SaveAs ThisWorkbook.Path & Application.PathSeparator & "Part of " & ThisWorkbook.Name _

& " " & strDate & ".xls"

strBorrar = .FullName

.Close

End With

Cells(15, 2) = funcion

Cells(14, 2) = matricula

Cells(13, 2) = rol

Cells(8, 2) = matricula

correo = "Dirección de correo:

[TABLE=class: outer_border, width: 75%]

[TR]

[TD]Únicamente los administradores pueden visualizar esta información.

[/TD]

[/TR]

[/TABLE]

"

ActiveSheet.Range("A1:B16").Select

ActiveWorkbook.EnvelopeVisible = True

Set sf = CreateObject("Scripting.FileSystemObject")

Set a = sf.GetFolder(ThisWorkbook.Path)

With ActiveSheet.MailEnvelope

.Item.To = correo

.Item.bcc = "Dirección de correo:

[TABLE=class: outer_border, width: 75%]

[TR]

[TD]Únicamente los administradores pueden visualizar esta información.

[/TD]

[/TR]

[/TABLE]

"

.Item.Subject = "Request"

'End With

.Item.Send

Kill strBorrar

End With

[Smako]

Algunas partes del código fueron bloqueadas, podrás subir tu archivo para verlo? Me quedo incompleto con esto:

[TABLE=class: cms_table_outer_border, width: 75%]

[TR]

[TD]Únicamente los administradores pueden visualizar esta información.

[/TD]

[/TR]

[/TABLE]