Outlook Banter

Outlook Banter (http://www.outlookbanter.com/)
-   Outlook and VBA (http://www.outlookbanter.com/outlook-vba/)
-   -   Base Email (http://www.outlookbanter.com/outlook-vba/91608-base-email.html)

rfhall50 June 16th 09 03:10 PM

Base Email
 
I have an email that I send often, just with some variable information. I would like to have a macro that creates the base information, then leaves the email open for me to change the variable parts. I tried using the basic vba formats then commenting out the .SEND to hopefully leave the email unsent - No Luck. Any ideas how I can leave it partly filled in, but unsent ?

Thanks. The code I used is shown below.

Bob
Code:

Sub Badge()
    Set OutProg = CreateObject("outlook.application")
    Set OutM = OutProg.CreateItem(OlItemType.olMailItem)
    With OutM
        .Subject = "Just testing."
        .To = "
        .Body = "Here we go"
Rem  .Send
    End With
End Sub


Ken Slovak - [MVP - Outlook] June 16th 09 06:43 PM

Base Email
 
If this is running in the Outlook VBA project then use Application and don't
create a new Application object.

Comment out the Send() call and call the Display() method of the new mail
item.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"rfhall50" wrote in message
...

I have an email that I send often, just with some variable information.
I would like to have a macro that creates the base information, then
leaves the email open for me to change the variable parts. I tried
using the basic vba formats then commenting out the .SEND to hopefully
leave the email unsent - No Luck. Any ideas how I can leave it partly
filled in, but unsent ?

Thanks. The code I used is shown below.

Bob

Code:
--------------------

Sub Badge()
Set OutProg = CreateObject("outlook.application")
Set OutM = OutProg.CreateItem(OlItemType.olMailItem)
With OutM
.Subject = "Just testing."
.To = "
.Body = "Here we go"
Rem .Send
End With
End Sub

--------------------




--
rfhall50



rfhall50 June 17th 09 01:30 AM

Ken ...

Thank you for the reply. That is just what I needed.

Bob


All times are GMT +1. The time now is 06:11 PM.

Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 2.4.0
Copyright ©2004-2006 OutlookBanter.com