Posts 11 - 20 of 20
First | Prev. | 1 2 | Next | Last
|
|
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
|
|
Posts 11 - 20 of 20
First | Prev. | 1 2 | Next | Last
|