Send Email choice

[wmtsub]

I am using a macro to send emails. But sometimes I want to see the results first.
I can manually reset the options to do so here by changing the remark.
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]' .send '<-- Send out this email
.display'<--

Display instead for the debugging only​

How can I get a prompt like this one to reset those for me?
[/FONT]
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]If MsgBox("Send Email?", vbYesNo + vbQuestion, "Email") = vbYes Then em = "Y"[/FONT]

 

[DanteAmor]

I can not seem to get this to work. it always displays the email rather than sending it.

check the following links, they are to make a cycle and send emails. if it is something similar to what you need I can help you create it and add the variable.

https://www.mrexcel.com/forum/excel...-send-multiple-recipients-then-loop-list.html

https://www.mrexcel.com/forum/excel...-send-emails-attachment-base-path-folder.html

 

[wmtsub]

Thank ypou. Read thru those post and i think I am beyond that. My email macro works fine. Its just that sometimes I have a need to display them first rather than send them directly. And i can re-right the code to do so. Was just wanting to do that programmatically instead.

 

[DanteAmor]

Thank ypou. Read thru those post and i think I am beyond that. My email macro works fine. Its just that sometimes I have a need to display them first rather than send them directly. And i can re-right the code to do so. Was just wanting to do that programmatically instead.

But you have to put the variable before the cycle.
I do not understand how you have your cycle, first because you did not put all your code and second because you are using a GoTo.
Maybe you need a global variable.
It's very simple but I must see all your code and put the necessary instructions.

 

[wmtsub]

I appreciate your support - I really do. but i am reluctant to post all my code becuase there is sensitve data in it.

I was trying to follow this approach but get an error stating "Property is read only? How can I get around that?

[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif][LEFT][COLOR=#222222][FONT=Verdana]' Set Output
    If MsgBox("Send Email?", vbYesNo + vbQuestion, "Email") = vbYes Then
    snd = ".send"
    dsply = ".Display"
    Else
    snd = ".send"
    dsply = ".Display"
End If


[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]'Specify email recipients, subject, etc:
    .To = ema
     Const Behalf = "wm" ' <-- Name to send on behalf of Exchange profile/account
    '.Cc = "carboncopy@..."
    .Bcc = bccl
    .Subject = inltr & tdd & " -- For --  " & vnd
    .SentOnBehalfOfName = Behalf
    .send = snd
    .display = dsply
      
        End With[/FONT][B][I][U][SUB][SUP]<strike>
</strike>[/SUP][/SUB][/U][/I][/B][/FONT][/COLOR][/LEFT][/FONT]

 

[DanteAmor]

I appreciate your support - I really do. but i am reluctant to post all my code becuase there is sensitve data in it.

I was trying to follow this approach but get an error stating "Property is read only? How can I get around that?

I understand the sensitive data. You can change them by general data.
If I do not see all the code I can not help, sorry.

The only thing I can do is tell you examples, but you must adapt it, but if you have problems, I can not keep guessing how you have the code.