outlook security manager making own dll

Add-in Express™ Support Service
That's what is more important than anything else

outlook security manager making own dll
 
william steeley




Posts: 11
Joined: 2011-11-11
hi thanks for the help

ive got it working on two xp machines fine, but having a issue with windows 7 64bit machine. all the pcs are using outlook 2003, so im assuming i still use the non 64 dll and active x.

on the windows 7 machine its seems to run the code and creates the email, but its not auto sending it, it is also not giving any errors. the email appers in drafts but after a dealy

any ideas
Posted 14 Nov, 2011 11:27:39 Top
Renat Tlebaldziyeu


Add-in Express team


Posts: 132
Joined: 2010-02-15
Hi William,

Could you please show me the code that you currently use?
Posted 15 Nov, 2011 01:20:41 Top
william steeley




Posts: 11
Joined: 2011-11-11
of course, as i said works fine on xp and outlook2003 but not windows7 64bit and outlook2003.


Public Sub SendMail(MsgRecip As String, MsgSubj As String, MsgText As String, MsgAttach As String, MsgDisp As Boolean)

Dim SecurityManager As Object 'change
Set SecurityManager = CreateObject("AddInExpress.OutlookSecurityManager") 'change

Dim Outlook As Object 'change
Set Outlook = CreateObject("Outlook.Application")

Call SecurityManager.ConnectTo(Outlook)
SecurityManager.DisableOOMWarnings = True 'change

Set MailItem = Outlook.CreateItem(0) 'change
On Error GoTo MailError
If Not IsNull(MsgSubj) Then MailItem.Subject = MsgSubj
If Not IsNull(MsgText) Then MailItem.Body = MsgText
If Not IsNull(MsgRecip) Then MailItem.To = MsgRecip

Text_Pos = 0
While Text_Pos < Len(Trim(MsgAttach))
If InStr(Text_Pos + 1, MsgAttach, ";") = 0 And Text_Pos = 0 Then
Email_add = MsgAttach
Text_Pos = Len(Trim(MsgAttach))
Else
If InStr(Text_Pos + 1, MsgAttach, ";") > 0 Then _
Address_Len = InStr(Text_Pos + 1, MsgAttach, ";") - (Text_Pos + 1) Else _
Address_Len = 100
Email_add = Trim(Mid(MsgAttach, Text_Pos + 1, Address_Len))
Text_Pos = Text_Pos + Address_Len + 1
End If
If Len(Dir(Email_add)) > 0 Then MailItem.Attachments.Add (Email_add)
Wend
If MsgDisp = True Then
MailError:
MailItem.Display
Else
MailItem.Send
End If
SecurityManager.DisableOOMWarnings = False 'change
Set MailItem = Nothing
Set Outlook = Nothing

End Sub
Posted 15 Nov, 2011 03:10:26 Top
Renat Tlebaldziyeu


Add-in Express team


Posts: 132
Joined: 2010-02-15
Hi William,

The code looks good, thank you.
Could you please organize a remote session? I will look into the issue online.
Posted 15 Nov, 2011 03:29:01 Top
william steeley




Posts: 11
Joined: 2011-11-11
hi tried it on another windows 7 machine and worked fine, so im assuming its a issue on the local machine

Will
Posted 15 Nov, 2011 04:00:35 Top
Renat Tlebaldziyeu


Add-in Express team


Posts: 132
Joined: 2010-02-15
Hi William,

Does the code run fine on the problematic PC if you comment out the Security Manager lines?
Please try to repair your Office via Control Panel - Programs and features. Did it help?
Posted 15 Nov, 2011 04:24:21 Top
william steeley




Posts: 11
Joined: 2011-11-11
no its not working with or without the code, so just trying the repair
Posted 15 Nov, 2011 06:38:59 Top
Renat Tlebaldziyeu


Add-in Express team


Posts: 132
Joined: 2010-02-15
Thank you, William. Please let me know about your results.
Posted 15 Nov, 2011 06:41:17 Top
william steeley




Posts: 11
Joined: 2011-11-11
repair didnt work also have tried to remove and reinstall and still no luck its all rather odd
Posted 15 Nov, 2011 07:18:49 Top
Renat Tlebaldziyeu


Add-in Express team


Posts: 132
Joined: 2010-02-15
Do you have administrative permissions on that PC?
Posted 15 Nov, 2011 07:22:43 Top