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?