Creating email message programmatically in offline mode : Outlook 2003 Redemption VB6

Experts Exchange

	[x] Posted via EE Mobile
	Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again.

Question

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

7.4

Creating email message programmatically in offline mode

Asked by KMcElhiney in Outlook Groupware Software, Exchange Email Server, Visual Basic Programming

Tags: Outlook 2003 Redemption VB6

OK, here goes:

I have a legacy VB6 application that is run on laptop computers by field reps while disconnected from the internet and the corporate network. I added a form to allow these reps to create feedback on usage of the app which I want to then send to a central mailbox on the corporate Exchange server. These reps connect to the corporate network from home each night using VPN, at which time they connect to the corporate Exchange server and send/receive email. My brilliant plan was to create these feedback messages in the Outbox of the Outlook 2003 they have installed on their laptops and then have these messages delivered when they connect to the corporate network each night. Sounds simple, right?

To get by the Outlook security warning I am using Outlook Redemption, a fantastic little piece of software if I ever saw one. The problem I am running into is that when I create the email message in Outlook, I get a message saying:

"You are not connected to your Exchange Server. Would you like to work offline?"

If you click yes the message is created in the Outbox and delivered when you connect to the corporate network. However, I would really like to avoid getting this message if at all possible.

Can someone help me with this? The relevant code is shown below.

Thanks in advance,
Kevin

Get your answer NOW

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

           
           
             Set safeItem = CreateObject("Redemption.SafeMailItem")
    
    ' Create the Outlook session
    Set objOutlook = CreateObject("Outlook.Application")
    Set objNS = objOutlook.GetNamespace("MAPI")
    objNS.Logon
    Set safeUser = CreateObject("Redemption.SafeCurrentUser")
    userName = safeUser.Name
    safeUser.cleanUp
    
    ' Assemble the email body
    bodyText = "Type of Feedback: " & cboFeedbackType.Text & vbCrLf
    bodyText = bodyText & "Priority:         " & cboPriority.Text & vbCrLf & vbCrLf
    bodyText = bodyText & txtFeedback.Text
    
    ' Create the Message
    Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
    
    ' Move from Drafts to Outbox folder so that it doesn't get held up
    ' Note that I copy to a new object to avoid "ghost messages"
    Set objNewOutlookMsg = objOutlookMsg.MOVE(objOutlook.Session.GetDefaultFolder(4))
    objNewOutlookMsg.save
    safeItem.Item = objNewOutlookMsg
    With safeItem
        .Recipients.Add toEmailAddress
        .Subject = "In-Home Tool feedback from " & userName
        .Body = bodyText
        .Send
    End With
    Set objOutlookMsg = Nothing
    Set objNewOutlookMsg = Nothing
    Set objNS = Nothing
    Set objOutlook = Nothing
    Set safeItem = Nothing

           
         

20091111-EE-VQP-89 - Hierarchy / EE_QW_3_20080625

Hall of Fame

1. BlueDevilF...1,597,370
2. apache09908,595
3. Mestha789,453
4. war1718,604
5. chris_bot...594,229
6. alanhardisty183,960
7. peakpeak176,150
8. MYCU155,644
9. greenhacks153,571
10. Subsun140,395
11. gupnit124,289
12. GWMerrell114,490
13. demazter107,325
14. badgermike104,824
15. tbsgadi85,937
16. MightySW81,650
17. matthews...79,598
18. thinkpads...77,935
19. shauncro...74,017
20. tigermatt73,751
21. xxdcmast70,155
22. jjmck65,105
23. johnb676764,832
24. ashwynr60,050
25. flyingsky58,200

1. war18,091,006
2. BlueDevilF...6,566,253
3. sunray_...1,411,386
4. apache091,347,358
5. Sembee1,020,059
6. traval947,400
7. chris_bot...926,644
8. Mestha789,453
9. Frankco594,656
10. peakpeak592,773
11. meintsi487,774
12. Neo_mvps469,947
13. slink9466,031
14. sirbounty413,345
15. bruintje385,477
16. kfalandays353,641
17. gupnit350,538
18. mark-wa331,946
19. stefri326,719
20. kjanicke280,390
21. Mob-bom280,365
22. matthews...269,306
23. tigermatt257,776
24. StuartWh...256,271
25. upul007236,671

Creating email message programmatically in offline mode

Asked by KMcElhiney in Outlook Groupware Software, Exchange Email Server, Visual Basic Programming

Tags: Outlook 2003 Redemption VB6

About this solution