Outlook version problem?

[panuvin]

Hello,

I'm a relatively new VB programmer and am having trouble with an outlook form. Whenever I click on CommandButton2, it will only send an email with MS Outlook 2000. My colleagues are using Outlook v2002 (SP3) and clicking the button does nothing. Has anyone ever heard of this happening? Maybe one of you pros can help me out =)

Any feedback would be greatly appreciated!

Here's the code:

Sub CommandButton2_Click()
    Item.cc = Item.userproperties.find("managername").value & ";" & Item.userproperties.find("employeename").value
 
    
    If Item.userproperties.find("ScorecardChecked").value = True Then ' require checkbox marked
        Item.Save  ' save current settings
        Set AssignedFolder = Application.GetNameSpace("MAPI").GetDefaultFolder(6)
        Set NewItem = AssignedFolder.Items.Add("IPM.Note.Staff Dialogue Routing Form")
      NewItem.UserProperties.Find("Employee ID number").value = item.UserProperties.Find("Employee ID number").value
      NewItem.UserProperties.Find("Manager Comments").value = item.UserProperties.Find("Manager Comments").value
        NewItem.UserProperties.Find("managername").value = item.UserProperties.Find("managername").value
        NewItem.UserProperties.Find("ScorecardChecked").value = item.UserProperties.Find("ScorecardChecked").value
        NewItem.UserProperties.Find("Employee Comments").value = item.UserProperties.Find("Employee Comments").value
        NewItem.UserProperties.Find("employeename").value = item.UserProperties.Find("employeename").value
        NewItem.UserProperties.Find("lvl2Mgr").value = item.UserProperties.Find("lvl2Mgr").value
        NewItem.UserProperties.Find("HRBusinessPartner").value = item.UserProperties.Find("HRBusinessPartner").value
        NewItem.Body = item.body
        NewItem.cc = item.cc
      AlsoSendto = item.cc
      ' Now, let's deal with copying the attachments from the existing form to the new form ;)
      set saveAttachments = Item.Attachments
        set NewAttachments = Newitem.attachments
        set fso = CreateObject("Scripting.FileSystemObject")
        sDirSpec = "c:\ngwm" & item.UserProperties.Find("Employee ID number").value
        fso.CreateFolder (sDirSpec)
 
      if saveAttachments.count > 0 then                   ' The files must be saved in order to be forwarded
        for i =1 to saveAttachments.count
        sFileSpec = saveattachments.item(i).displayname
            saveattachments.item(i).saveasfile sDirSpec  & "\" & sFileSpec
          Newattachments.add sDirSpec  & "\" & sFileSpec
        next        
      end if
        fso.DeleteFolder (sDirSpec)
 
        NewItem.To = AlsoSendto & "; Employee Resource Center; " & Item.UserProperties.Find("lvl2Mgr").value & ";" & mid(Item.userproperties.find("HRBusinessPartner").value,inStr(1,Item.userproperties.find("HRBusinessPartner").value," - ")+3)  
      
      NewItem.send
 
        Item.Delete ' delete current message opened
    Else
        MsgBox "blah"
    End If
End Sub

[RobDog888]

Welcome to the Forums.

I assume that this is Outlooks VBA code and not VB code automating Outlook.

One thing to check is if the other users have their security setting set to medium so they can choose to run
your code or not. If it was set to high then the code will not run.

Another note is that in Outlook XP the .SaveAsFile is a protected method and will incur the infamous Security Popup Prompt.

[panuvin]

I've talked to some of my colleagues about the problem and the security settings are all at medium. Someone stated something about including a Outlook 2002 reference in the code. Do you know anything about this and how I could implement it? Thanks!

And could it also be a problem with my Exchange Server having multiple email addresses for different people. I'm thinking the lookup could bring up some kind of error when it returns multiple emails, assuming VBA would do this. Please let me know your thoughts.

Justin

[RobDog888]

Is this VB6 or Outlooks VBA Editor?

If its the editor then there is no need to include a reference to itself. I think
what you need to start with is some degugging.

Try adding some logging code to write some properties/variable values to a
text file.This way you can actually see what is happening or not happening
and why.

[panuvin]

I'm using the Outlook VBA editor. I've tried taking everything out of the CommandButton2.Click() function and just adding a messagebox but nothing is happening. I keep clicking on the commandbutton2 and absolutely nothing happens, just like when all the code was there. What in the world could be going on here? Btw, The Commandbutton2 is on the "Read Page". The compose page works just fine. Thanks again for your help.

Justin

[RobDog888]

This custom form is a Published form or are you just copying it over to the other users machines?