Can I have some help please?

[Guest]

Another query. I have another error with the following ("End If without
Block If")

'Set up the new mail document
Set MailDoc = Maildb.CreateDocument
MailDoc.Form = "Memo"
MailDoc.SendTo = ASendTo
MailDoc.Subject = "Info"
MailDoc.Body = "texte "
End If

 

[Stefan Hoffmann]

hi,

Another query. I have another error with the following ("End If without
Block If")

'Set up the new mail document
Set MailDoc = Maildb.CreateDocument
MailDoc.Form = "Memo"
MailDoc.SendTo = ASendTo
MailDoc.Subject = "Info"
MailDoc.Body = "texte "
End If

Delete this End If, it's a copy and past error.


mfG
--> stefan <--

 

[Guest]

Hello,

I guessed that might have been the case.

I didn't think anything was happening with the button but I received a long
list of MAIL ROUTER error messages

I've messed around with the code a bit and it seems to be working ok. In
the original code, lotus opened a new email with a blank "to:" line the user
could fill in themselves, but I will try an alternative.

Can you explain to me the purpose of "ASendToName" and "ABody", since they
don't appear anywhere in the message?

thanks for your help.

 

[Stefan Hoffmann]

hi,

I guessed that might have been the case.

It is a copy and paste error. It's mine.)

Can you explain to me the purpose of "ASendToName" and "ABody", since they
don't appear anywhere in the message?

The ASendToName is a relict from the code i use. So you can remove it
from the parameter list, as Lotus has here no property to fill with.
This line should be

MailDoc.Body = ABody



mfG
--> stefan <--

 

[Guest]

I got rid of "abody" as well because I inserted the code from my original
subroutine and it is working now.

thanks once again for the help.

 

[Guest]

Hello,

I have another query about the code you gave me. Is it possible to adapt the
code to include a CC address (the same address each time)

thanks

 

[Stefan Hoffmann]

hi,

I have another query about the code you gave me. Is it possible to adapt the
code to include a CC address (the same address each time)

Hmm, try to get the redbook:

www.redbooks.ibm.com/abstracts/sg245341.html


mfG
--> stefan <--