PDA

View Full Version : Word form to send doc through notes



wperry
04-25-2007, 11:33 AM
I am trying to be able to have my code send an email via lotus notes
here is all my code:

Private Sub CommandButton1_Click()
With ActiveDocument
.Bookmarks("UserName").Range.InsertBefore TextBox1
.Bookmarks("requesttype").Range.InsertBefore TextBox2
.Bookmarks("qty").Range.InsertBefore TextBox3
.Bookmarks("purpose").Range.InsertBefore TextBox4
.Bookmarks("describe").Range.InsertBefore TextBox5
.Bookmarks("other").Range.InsertBefore TextBox6
.Bookmarks("busarea").Range.InsertBefore ComboBox1
.Bookmarks("En").Range.InsertBefore CheckBox1
.Bookmarks("fr").Range.InsertBefore CheckBox2
.Bookmarks("subdate").Range.InsertBefore Calendar1
.Bookmarks("datedue").Range.InsertBefore Calendar2
.Bookmarks("evtdate").Range.InsertBefore Calendar3
End With
ActiveDocument.HasRoutingSlip = True
With ActiveDocument.RoutingSlip
.Subject = "Request for literature"
.AddRecipient xxx@yyyt.com
.AddRecipient xxx@yyy.com
.Delivery = wdAllAtOnce
ActiveDocument.Route
End With
UserForm1.Hide

when I test the form the debugger comes up with .Subject = "Request for literature" highlighted and when I mouse over the highlighted code it says .Subject=<object variable or with variable not set>
TIA WP

lucas
04-25-2007, 11:38 AM
Hi WP,
when posting be sure to select your code and hit the vba button so it will be formatted in the forum for easier reading...

lucas
04-25-2007, 12:01 PM
WP,
You will probably have to use MAPI to send with other than outlook...take a look at this kb entry:
http://vbaexpress.com/kb/getarticle.php?kb_id=311

wperry
04-25-2007, 12:10 PM
Ok..i will try that Steve
I notice there are alot of references to excel in that code...

Sub eMailActiveWorkbook()
Dim Wb As Workbook

Application.ScreenUpdating = False
Set Wb = ActiveWorkbook
Wb.Save



how should I change that to reflect a word doc
Thanks

lucas
04-25-2007, 12:22 PM
untested:
Sub eMailActiveWorkbook()
Dim Wb As Document

Application.ScreenUpdating = False
Set Wb = ActiveDocument
Wb.Save

wperry
04-25-2007, 12:24 PM
When i put that code in my form and go up to run>run sub/user form the code below gets highlighted with error :
Only comments can appear after end sub, end function or end property

Private Declare Function MAPILogon Lib "MAPI32.DLL" (ByVal UIParam As Long, _
ByVal User As String, ByVal Password As String, ByVal Flags As Long, _
ByVal Reserved As Long, Session As Long) As Long

wperry
04-25-2007, 12:25 PM
here is the total code as I have it now:


Private Sub CommandButton1_Click()
With ActiveDocument
.Bookmarks("UserName").Range.InsertBefore TextBox1
.Bookmarks("requesttype").Range.InsertBefore TextBox2
.Bookmarks("qty").Range.InsertBefore TextBox3
.Bookmarks("purpose").Range.InsertBefore TextBox4
.Bookmarks("describe").Range.InsertBefore TextBox5
.Bookmarks("other").Range.InsertBefore TextBox6
.Bookmarks("busarea").Range.InsertBefore ComboBox1
.Bookmarks("En").Range.InsertBefore CheckBox1
.Bookmarks("fr").Range.InsertBefore CheckBox2
.Bookmarks("subdate").Range.InsertBefore Calendar1
.Bookmarks("datedue").Range.InsertBefore Calendar2
.Bookmarks("evtdate").Range.InsertBefore Calendar3


End With
Option Explicit

Private Type MAPIMessage 'Mail
Reserved As Long
Subject As String
NoteText As String
MessageType As String
DateReceived As String
ConversationID As String
Flags As Long
RecipCount As Long
FileCount As Long
End Type

Private Type MapiRecip 'Recipient
Reserved As Long
RecipClass As Long
Name As String
Address As String
EIDSize As Long
EntryID As String
End Type

Private Type MapiFile 'File
Reserved As Long
Flags As Long
Position As Long
PathName As String
FileName As String
FileType As String
End Type

' MAPI Return Codes
Private Const SUCCESS_SUCCESS = 0
Private Const MAPI_USER_ABORT = 1
Private Const MAPI_E_USER_ABORT = MAPI_USER_ABORT
Private Const MAPI_E_FAILURE = 2
Private Const MAPI_E_LOGIN_FAILURE = 3
Private Const MAPI_E_LOGON_FAILURE = MAPI_E_LOGIN_FAILURE
Private Const MAPI_E_DISK_FULL = 4
Private Const MAPI_E_INSUFFICIENT_MEMORY = 5
Private Const MAPI_E_BLK_TOO_SMALL = 6
Private Const MAPI_E_TOO_MANY_SESSIONS = 8
Private Const MAPI_E_TOO_MANY_FILES = 9
Private Const MAPI_E_TOO_MANY_RECIPIENTS = 10
Private Const MAPI_E_ATTACHMENT_NOT_FOUND = 11
Private Const MAPI_E_ATTACHMENT_OPEN_FAILURE = 12
Private Const MAPI_E_ATTACHMENT_WRITE_FAILURE = 13
Private Const MAPI_E_UNKNOWN_RECIPIENT = 14
Private Const MAPI_E_BAD_RECIPTYPE = 15
Private Const MAPI_E_NO_MESSAGES = 16
Private Const MAPI_E_INVALID_MESSAGE = 17
Private Const MAPI_E_TEXT_TOO_LARGE = 18
Private Const MAPI_E_INVALID_SESSION = 19
Private Const MAPI_E_TYPE_NOT_SUPPORTED = 20
Private Const MAPI_E_AMBIGUOUS_RECIPIENT = 21
Private Const MAPI_E_AMBIG_RECIP = MAPI_E_AMBIGUOUS_RECIPIENT
Private Const MAPI_E_MESSAGE_IN_USE = 22
Private Const MAPI_E_NETWORK_FAILURE = 23
Private Const MAPI_E_INVALID_EDITFIELDS = 24
Private Const MAPI_E_INVALID_RECIPS = 25
Private Const MAPI_E_NOT_SUPPORTED = 26

Private Const MAPI_ORIG = 0 'Recipient-Flags
Private Const MAPI_TO = 1
Private Const MAPI_CC = 2
Private Const MAPI_BCC = 3

Private Const MAPI_LOGON_UI = &H1 'Logon Flags
Private Const MAPI_NEW_SESSION = &H2
Private Const MAPI_FORCE_DOWNLOAD = &H1000

Private Const MAPI_LOGOFF_SHARED = &H1 'Logoff Flags
Private Const MAPI_LOGOFF_UI = &H2

Private Const MAPI_DIALOG = &H8 'Send-Mail-Flags
Private Const MAPI_NODIALOG = 0

Private Const MAPI_OLE = &H1
Private Const MAPI_OLE_STATIC = &H2

Private Const MAPI_UNREAD = &H1 'Mail-Flags
Private Const MAPI_RECEIPT_REQUESTED = &H2
Private Const MAPI_SENT = &H4

Private Declare Function MAPILogon Lib "MAPI32.DLL" (ByVal UIParam As Long, _
ByVal User As String, ByVal Password As String, ByVal Flags As Long, _
ByVal Reserved As Long, Session As Long) As Long
Private Declare Function MAPILogoff Lib "MAPI32.DLL" (ByVal Session As Long, _
ByVal UIParam As Long, ByVal Flags As Long, ByVal Reserved As Long) As Long
Private Declare Function MAPISendMail Lib "MAPI32.DLL" Alias "BMAPISendMail" _
(ByVal Session As Long, ByVal UIParam As Long, Message As MAPIMessage, _
Recipient() As MapiRecip, File() As MapiFile, ByVal Flags As Long, _
ByVal Reserved As Long) As Long
Private Declare Function MAPISendDocuments Lib "MAPI32.DLL" (ByVal UIParam As Long, _
ByVal DelimStr As String, ByVal FilePaths As String, ByVal FileNames As String, _
ByVal Reserved As Long) As Long




Function SendIt(sRecip As String, sTitle As String, sText As String, sFile As String) As Boolean
Dim strTemp As String
Dim strError As String
Dim lngIndex As Long
Dim iFileCount As Integer

Dim mRecip(0) As MapiRecip, mFile() As MapiFile, mMail As MAPIMessage
Dim lSess As Long, lRet As Long

On Error GoTo ErrorHandler
SendIt = False

'Add 2 trailing spaces to the text, this will be the position where the attachment goes to
sText = sText & " "

'Recipient
With mRecip(0)
.Name = sRecip
.RecipClass = MAPI_TO
End With

'File to send?
If sFile <> "" Then
ReDim mFile(0)
With mFile(0)
.FileName = sFile
.PathName = sFile
.Position = Len(sText) - 1
.FileType = ""
.Reserved = 0
End With
iFileCount = 1
End If

'Create Mail
With mMail
.Subject = sTitle
.NoteText = sText
.Flags = 0
.FileCount = iFileCount
.RecipCount = 1
.Reserved = 0
.DateReceived = ""
.MessageType = ""
End With

'Post it
'Logon: User = "" and Password = ""
lRet = MAPILogon(0, "", "", MAPI_LOGON_UI, 0, lSess)
If lRet <> SUCCESS_SUCCESS Then
strError = "Error logging into messaging software. (" & CStr(lRet) & ")"
GoTo ErrorHandler
End If

'Send the mail to the given recipients with the attached file without showing a dialog
lRet = MAPISendMail(lSess, 0, mMail, mRecip, mFile, MAPI_NODIALOG, 0)
If lRet <> SUCCESS_SUCCESS And lRet <> MAPI_USER_ABORT Then
If lRet = 14 Then
strError = "Recipient not found"
Else
strError = "Error sending: " & CStr(lRet)
End If
GoTo ErrorHandler
End If

lRet = MAPILogoff(lSess, 0, 0, 0)

SendIt = True
Exit Function

ErrorHandler:
If strError = "" Then strError = Err.Description
Call MsgBox(strError, vbExclamation, "MAPI-Error")
End Function



Sub eMailActiveWorkbook()
Dim Wb As Workbook

Application.ScreenUpdating = False
Set Wb = ActiveWorkbook
Wb.Save

SendIt "me@here.com", "A new Document", "Hi, read this:", Wb.FullName

Application.ScreenUpdating = True
Set Wb = Nothing
End Sub


End With
UserForm1.Hide

lucas
04-25-2007, 12:27 PM
You should download the example file and look at it closely. I think this code should be in a standard module and be called from your form.

lucas
04-25-2007, 12:29 PM
Private Sub CommandButton1_Click()
eMailActiveWorkbook
end sub

lucas
04-25-2007, 12:32 PM
Also....this is code for shipping the entire document...you may wish to use code to create a new word document from your form and email that....

wperry
04-25-2007, 12:39 PM
hmmm...I am kind of new to vba :( all I want to do is create a form that will email a request the easiest way possible for alot of very non computer literate users