By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,851 Members | 1,308 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,851 IT Pros & Developers. It's quick & easy.

emailing function

P: n/a
Hi All,
I have this function which sends an email and it works great as is
but, the one thing that I would like to change is it creates the email
in the 'work in progress' folder in Groupwise and after sending the
email it does not delete it from the 'work in progress' folder.
Hopefully someone can tell me or add to this the vba code needed to
have this delete the created email from the 'work in progress' folder
once it sends it.
thanks
bobh.

Public Function SendGWMail(DisplayMsg As Boolean, _
strTo As String, strCC As String, strBCC As String, _
strSubject As String, strBody As String, strAttachPathFile As String)
As Boolean

' This will log you in to Groupwise if you are not logged in already
except if you have your
' Groupwise account password protected then you must log-in to
Groupwise first.
Const NGW$ = "NGW"
Dim GWCom As Object
Dim RetStr As String, MessageId As String

SendGWMail = False

' Create the Groupwise session
'Dim gwappl As GroupwareTypeLibrary.Application2
'Dim gwacc As GroupwareTypeLibrary.Account2
'Dim gwnewmessage As GroupwareTypeLibrary.Message

Dim gwappl As Object, gwacc As Object, gwnewmessage As Object

Set gwappl = CreateObject("NovellGroupWareSession")
Set gwacc = gwappl.Login
Set gwnewmessage = gwacc.WorkFolder.Messages.Add("GW.Message.mail")

' Create the message
With gwnewmessage
With .Recipients
' Add the To recipient(s) to the message
If (strTo <"") Then
'.Add strTo
.Add strTo, NGW
End If
' Add the CC recipient(s) to the message
If (strCC <"") Then
.Add strCC, NGW
End If
' Add the BCC recipient(s) to the message
If (strBCC <"") Then
.Add strBCC, NGW
End If
End With

' Set the Subject, Body, and Importance of the message
.Subject = strSubject
.BodyText = strBody
.Priority = 3

' Add attachments to the message.
If (strAttachPathFile <"") Then
.Attachments.Add strAttachPathFile
End If

' Should we display the message before sending?
If DisplayMsg Then
' Display message to user
MessageId = .MessageId
Set GWCom = CreateObject("GroupwiseCommander")
GWCom.Execute "ItemOpen (""" & MessageId & """)", RetStr
GWCom.Execute "ItemSetText (""X00"";To!; """ & strTo & """;
0)", RetStr
Else
.Send
End If
End With

SendGWMail = True
Set gwnewmessage = Nothing

Oct 10 '07 #1
Share this Question
Share on Google+
1 Reply


P: n/a
Hi All,
I know that not all things are answered here but I am curious about
this one, does the no replies mean no one knows?
bobh.

On Oct 10, 3:47 pm, bobh <vulca...@yahoo.comwrote:
Hi All,
I have this function which sends an email and it works great as is
but, the one thing that I would like to change is it creates the email
in the 'work in progress' folder in Groupwise and after sending the
email it does not delete it from the 'work in progress' folder.
Hopefully someone can tell me or add to this the vba code needed to
have this delete the created email from the 'work in progress' folder
once it sends it.
thanksbobh.

Public Function SendGWMail(DisplayMsg As Boolean, _
strTo As String, strCC As String, strBCC As String, _
strSubject As String, strBody As String, strAttachPathFile As String)
As Boolean

' This will log you in to Groupwise if you are not logged in already
except if you have your
' Groupwise account password protected then you must log-in to
Groupwise first.
Const NGW$ = "NGW"
Dim GWCom As Object
Dim RetStr As String, MessageId As String

SendGWMail = False

' Create the Groupwise session
'Dim gwappl As GroupwareTypeLibrary.Application2
'Dim gwacc As GroupwareTypeLibrary.Account2
'Dim gwnewmessage As GroupwareTypeLibrary.Message

Dim gwappl As Object, gwacc As Object, gwnewmessage As Object

Set gwappl = CreateObject("NovellGroupWareSession")
Set gwacc = gwappl.Login
Set gwnewmessage = gwacc.WorkFolder.Messages.Add("GW.Message.mail")

' Create the message
With gwnewmessage
With .Recipients
' Add the To recipient(s) to the message
If (strTo <"") Then
'.Add strTo
.Add strTo, NGW
End If
' Add the CC recipient(s) to the message
If (strCC <"") Then
.Add strCC, NGW
End If
' Add the BCC recipient(s) to the message
If (strBCC <"") Then
.Add strBCC, NGW
End If
End With

' Set the Subject, Body, and Importance of the message
.Subject = strSubject
.BodyText = strBody
.Priority = 3

' Add attachments to the message.
If (strAttachPathFile <"") Then
.Attachments.Add strAttachPathFile
End If

' Should we display the message before sending?
If DisplayMsg Then
' Display message to user
MessageId = .MessageId
Set GWCom = CreateObject("GroupwiseCommander")
GWCom.Execute "ItemOpen (""" & MessageId & """)", RetStr
GWCom.Execute "ItemSetText (""X00"";To!; """ & strTo & """;
0)", RetStr
Else
.Send
End If
End With

SendGWMail = True
Set gwnewmessage = Nothing

Oct 25 '07 #2

This discussion thread is closed

Replies have been disabled for this discussion.