Mostrar mail antes de enviar

Disculpa por la molestia;
quisiera saber...
Tengo una MACRO para enviar un mail, ya adaptada a mis necesidades, funciona de maravilla, pero quisiera que en lugar de enviar el mensaje con la funcion .SEND
me la muestre, con .DISPLAY; para que me de tiempo de checar el Mail
Este es mi codigo:
Sub PRUEBA() 
 Dim AWorksheet As Worksheet 
    Dim Sendrng As Range 
    Dim rng As Range 
    On Error GoTo StopMacro 
    With Application 
        .ScreenUpdating = False 
        .EnableEvents = False 
    End With 
    'Fill in the Worksheet/range you want to mail 
    'Note: if you use one cell it will send the whole worksheet 
    Set Sendrng = Worksheets("IMAGEN").Range("A1:M32") 
    'Remember the activesheet 
    Set AWorksheet = ActiveSheet 
    'Create the mail and send it 
    With Sendrng 
        ' Select the worksheet with the range you want to send 
        .Parent.Select 
        'Remember the ActiveCell on that worksheet 
        Set rng = ActiveCell 
        'Select the range you want to mail 
        .Select 
        ' Create the mail and send it 
        ActiveWorkbook.EnvelopeVisible = True 
        With .Parent.MailEnvelope 
            ' Set the optional introduction field thats adds 
            ' some header text to the email body. 
            ' In the "With .Item" part you can add more options 
            ' See the tips on this Outlook example page. 
            ' http://www.rondebruin.nl/mail/tips2.htm 
            With .Item 
                .To = "[email protected]
                .Subject = Range("XFD1048576").Value 
                .SEND 
                MsgBox "MENSAJE ENVIADO EXITOSAMENTE!!!!" 
            End With 
        End With 
        'select the original ActiveCell 
        rng.Select 
    End With 
    'Activate the sheet that was active before you run the macro 
    AWorksheet.Select 
StopMacro: 
    With Application 
        .ScreenUpdating = True 
        .EnableEvents = True 
    End With 
    ActiveWorkbook.EnvelopeVisible = False 
End Sub 
Sub PRUEBA() Dim AWorksheet As Worksheet    Dim Sendrng As Range    Dim rng As Range 
    On Error GoTo StopMacro 
    With Application        .ScreenUpdating = False        .EnableEvents = False    End With 
    'Fill in the Worksheet/range you want to mail 'Note: if you use one cell it will send the whole worksheet Set Sendrng = Worksheets("IMAGEN"). Range("A1:M32")
    'Remember the activesheet    Set AWorksheet = ActiveSheet 
    'Create the mail and send it    With Sendrng 
        ' Select the worksheet with the range you want to send        .Parent.Select 
        'Remember the ActiveCell on that worksheet        Set rng = ActiveCell 
        'Select the range you want to mail        .Select 
        ' Create the mail and send it        ActiveWorkbook.EnvelopeVisible = True        With .Parent.MailEnvelope 
            ' Set the optional introduction field thats adds ' some header text to the email body.       
            ' In the "With .Item" part you can add more options            ' See the tips on this Outlook example page.            ' http://www.rondebruin.nl/mail/tips2.htm            With .Item                .To = "[email protected]"                .Subject = Range("XFD1048576").Value                .SEND                MsgBox "MENSAJE ENVIADO EXITOSAMENTE!!!!"                            End With        End With 
        'select the original ActiveCell        rng.Select    End With 
    'Activate the sheet that was active before you run the macro    AWorksheet.Select 
StopMacro:    With Application        .ScreenUpdating = True        .EnableEvents = True    End With    ActiveWorkbook.EnvelopeVisible = False    End Sub 
de antemano agradezco tu atencion.
{"lat":35.4606699514953,"lng":-98.4375}
3

3 respuestas

Respuesta
1
Esto Reliza lo que necesitas
Sub MyMacro()
'Esta macro sirve para enviar un correo con el Outlook 2007, pero antes de enviarlo nos muestra la pantalla del
'correo para poner nosotros los datos del correo, direccion de correo, sujeto, y presionar manualmente enviar.
    Dim mihoja As Worksheet
    Dim mirango As Range
    Dim micelda As Range
    On Error GoTo Parar_Macro
    Set mirango = Worksheets("datos").Range("A1:E50")
    Set mihoja = ActiveSheet
    With mirango
        .Parent.Select
        Set micelda = ActiveCell
        .Select
        ActiveWorkbook.EnvelopeVisible = True
    End With
    micelda.Select
Parar_Macro:
End Sub
Respuesta
1
No se como funciona esta funcion, yo siempre he usado con la funcion send, no he usado nunca la funcion display.
Siento no poderte ayudar
Respuesta
-1
Yo no trabajo con excel, pero muestra los datos que vas a enviar en un formulario o en una hoja y despues con un boton haces el .Send del mail si no hay correcciones

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas