Outlook 2010 VBScript

Berg · #1 08-31-2015, 10:10 AM

Hey!

I created a custom form (IPM.Note) with three frames, text box and CommandButtons on page 2.

The first user (Address1) should complete the form and send by CommandbuttonA_click to the second user (address2). User2 should write in his TextBox Forward it (CommandbuttonB_click) to the third user (Address3).

The first sending works (Sub commandbuttonA_click), but there is an error after forward: In the Inbox of address2 the following error code appears: [578:0x000004DC:0x0000001D]

Code:

   
Sub CommandButtonA_click()
    Dim adress1, adress2
    Dim var_Inspector, var_Item
    Dim page
 
        Set var_Inspector = Application.ActiveInspector
        Set var_Item = var_Inspector.CurrentItem
        Set page = Item.GetInspector.ModifiedFormPages("P.2")
 
            While var_Item.Recipients.Count > 0
                var_Item.Recipients(1).Delete
            Wend
 
            adress1 = "test1@test.com"
            adress2 = "test2@test.com"
 
            var_Item.Subject = "Subject"
 
            var_Item.Recipients.Add(adress2).Resolve
 
            var_Item.Body = "command"
            var_Item.Send
 
            MsgBox "Send to: " & adress2
 
    var_Inspector = Nothing
    var_Item = Nothing
    seite = Nothing
End Sub
 
Sub CommandButtonB_click()
    Dim adress1, adress2, adress3
    Dim var_Inspector, var_Item
    Dim page
 
        Set var_Inspector = Application.ActiveInspector
        Set var_Item = var_Inspector.CurrentItem
        Set page = Item.GetInspector.ModifiedFormPages("P.2")
 
        adress3 = test3@test.com
 
            'MsgBox "var_Item.Recipients(1): " & var_Item.Recipients(1)
            While var_Item.Recipients.Count > 0
            var_Item.Recipients(1).Delete
            Wend
 
 
            var_Item.Recipients.Add(adress3).Resolve
 
            var_Item.To = adress3
            var_Item.Forward
            var_Item.Send
 
    var_Inspector = Nothing
    var_Item = Nothing
    seite = Nothing
End Sub

On the web I found the error [578: 0x000004DC: 0x0000001D] only in conjunction with MS Exchange, which I do not know much about. The forward function of the form is necessary or the application, so that the form can be forwarded to a number of recipients.

Maybe it's the MailItem.SenderMailAdress, or other read-only properties?

Can anyone help?

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
maintain value in outlook custom form after reply or forward	megatronixs	Outlook	0	01-21-2015 01:21 PM
designing a custom outlook form - this form is for only sending mails nt collect data	balamuralibm	Outlook	0	05-21-2014 08:08 AM
Desktop outlook 2010 move my evert forward 10 hours	smilepolice	Outlook	1	05-21-2012 09:15 PM
Outlook 2010 Forward using default account	donna74	Outlook	0	02-16-2011 05:47 PM
Microsoft Access 2010 Error open a Web Form	WilfredoMolina	Office	1	10-10-2010 06:47 AM