November 19, 2008 02:57am pst

1. ShineOn 49,857
2. billmercer 46,325
3. PsiCop 45,260
4. Ghost96 9,900
5. ranhell 7,890
6. blcarter14 6,000
6. mattee76 6,000
8. dfke 5,900
9. floyd99 5,875
10. alextoft 5,411
11. MarkMich... 4,460
12. hbustan 4,000
13. bhanukir7 3,150
14. peakpeak 2,500
14. consultkhan 2,500
16. steveoskh 2,332
17. JReynolds 2,000
17. rmyers1... 2,000
17. Dave_AND 2,000
17. puppydog... 2,000
17. tstimper 2,000
17. Mevi 2,000
17. eyesnotblue 2,000
17. jimpen 2,000
17. beatified 2,000
17. mbarnesseo 2,000
17. jeverist 2,000
17. oriziv 2,000
17. Geyybecca 2,000
17. tgtran 2,000

1. PsiCop 326,924
2. ShineOn 279,301
3. billmercer 94,581
4. steveoskh 27,430
5. floyd99 25,789
6. BigBadFle... 18,849
7. waybadm... 17,501
8. blcarter14 16,000
9. Ghost96 9,900
10. dotENG 8,560
11. alextoft 8,411
12. MarkMich... 7,960
13. ranhell 7,890
14. mattee76 6,000
15. dfke 5,900
16. BudDurland 5,500
17. puppydog... 4,000
17. hbustan 4,000
17. bptrimm 4,000
20. mcsween 3,460
21. ET0000 3,180
22. bhanukir7 3,150
23. souseran 2,750
24. peakpeak 2,500
24. consultkhan 2,500

09.25.2008 at 01:07AM PDT, ID: 23761611

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

8.3

Groupwise mails sent through VBA are returned as undeliverable

Asked by jflodin in Novell Groupwise

Tags: VBA

I am having a problem when sending Groupwise mails through VBA and the email address contains one dot or more (".") before the @. Those mails are simply returned to me as undeliverable. Example: Sending to jan.flodin@somedomain.com comes back from the recipient's postmaster as "recipient jan@somedomain.com does not exist", or some similar message.

As you can see in the attached code I have a litte check if the address before the @ contains a dot. If Yes then the code is not setting the recipient but opens the mail for manual inserting the recipient. But as you understand I would like to be able to automatically send those mails as well.

We are using Groupwise version 6.5.Start Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:

           
           
             Public Function SendMail()
Dim GW As Variant
Dim Acc As Variant
Dim MyMailFolder As Variant
Dim MyMessages As Variant
Dim MyMessage As Variant
Dim MyDraftMsg As Variant
Dim MyRecips As Variant
Dim MyRecip As Variant
Dim sReciever as String
Dim SenderDisplayName As String
Dim SenderEmailAddress As String
Dim CreationDate As Date
Dim iCount As Integer
Dim vCommander As Variant
Dim ParamStr As String
Dim MyMsgID As String
Dim sResult As String
Dim iRet As Integer
 
Set GW = CreateObject("NovellGroupWareSession")
Set Acc = GW.Login
Set MyMailFolder = Acc.Mailbox
Set MyMessages = MyMailFolder.Messages
Set MyDraftMsg = MyMessages.Add("GW.MESSAGE.MAIL")
sReciever = "jan.flodin@somedomain.com"
sAttachment = Application.ActiveWorkbook.Name
MyDraftMsg.Subject = "some subject"
MyDraftMsg.BodyText = "some body text"
MyDraftMsg.FromText = Acc.RootFolder.Name
Set MyRecips = MyDraftMsg.Recipients
 
sDot = Split(sReciever, "@")
iPos = InStr(1, sDot(0), ".")
If iPos = 0 Then
    Set MyRecip = MyRecips.Add(sReciever, , 0)  '1 = CC and 2 = BC
End If
SenderDisplayName = ""
SenderEmailAddress = ""
SenderEmailAddressType = ""
CreationDate = Now
MyDraftMsg.Attachments.Add Workbooks(sAttachment).FullName
Set MyMessage = MyMessages.AddExistingMessage(SenderDisplayName, SenderEmailAddress, SenderEmailAddressType, CreationDate, egwIncoming, egwMessagePrivate, egwNormal, egwDefaultSecurity, MyDraftMsg)
MyMailFolder.Refresh
Set MyMessages = Nothing
Set MyMessages = MyMailFolder.Messages
 
If iPos > 0 Then
    ' Open the new message to view it and add recipient(s) manually
    MyMsgID = MyMessage.MessageID
    Set vCommander = CreateObject("GroupWiseCommander")
    ParamStr = "ItemOpen(""" + MyMsgID + """)"
    iRet = vCommander.Execute(ParamStr, sResult)
    MyMessage.Delete
    Exit Function
Else
    MyMessage.Send
    MyMessage.Delete
    MsgBox "The mail has been sent", vbInformation, "Mail sent"
End If
 
End Function

           
         

Keywords: Groupwise mails sent through VBA ar…

	Title
1	VBA Command Button properties in Word
2	External Postmaster Address
3	Excel VBA Code
4	VBA For Statement
5	vba and references
6	Using VBA but .net???

Loading Advertisement...

20081112-EE-VQP-44 / EE_QW_2_20070628

Groupwise mails sent through VBA are returned as undeliverable

Asked by jflodin in Novell Groupwise

Tags: VBA

About this solution