hi

I have a form in excel, upon completion of the form, I need user to just
click on button, which will attached that form as excel to the email address
(to, cc & bcc) attached to that button. Thanks in advance for letting me know
what sort of macro can help.

--
Message posted via http://www.officekb.com

Hi Abdulkader

See
http://www.rondebruin.nl/sendmail.htm

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Abdulkader Bhanpurawala via OfficeKB.com" wrote in message ...
hi

I have a form in excel, upon completion of the form, I need user to just
click on button, which will attached that form as excel to the email address
(to, cc & bcc) attached to that button. Thanks in advance for letting me know
what sort of macro can help.

--
Message posted via http://www.officekb.com

Thanks dear, the website was very useful. I have a form now with three
different button attached with different macros, so the sender can select
anyone for submission of form. Now my demand increases, I would like to have
these button get activated only if they complete the form with the
information filled in the fields/cell which are mandatory. Thanks for support.


--
Message posted via http://www.officekb.com

hi Abdulkader

You can use this in your code to test if all the cells have a value

Sub test()
Dim myrange As Range
Set myrange = Worksheets("Sheet1").Range("A1:A6,C10,D12,G1:G3")
If Application.WorksheetFunction.CountA(myrange) < _
myrange.Cells.Count Then
MsgBox "fill in all cells"
Exit Sub
End If
MsgBox "Your code"
End Sub



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Abdulkader Bhanpurawala via OfficeKB.com" wrote in message ...
Thanks dear, the website was very useful. I have a form now with three
different button attached with different macros, so the sender can select
anyone for submission of form. Now my demand increases, I would like to have
these button get activated only if they complete the form with the
information filled in the fields/cell which are mandatory. Thanks for support.


--
Message posted via http://www.officekb.com

Thanks dear. it is working!

--
Message posted via http://www.officekb.com

Abdulkader Bhanpurawala wrote:
Thanks dear. it is working!

hi! I need help again.

with microsoft outlook, it is working fine. Now, I have few user, who uses
Lotus notes as email application. The version used by them is 6.5.2. I wrote
below macro, but not working, can someone help to fix this as well. What I
need is form with a custome button "submit" & upon cliking it should check
whether all required field is filled in & send send mail to "To" & "CC" with
that form as an attachment. Thanks in advance.

Sub lotus()
'
' lotus Macro
' Macro recorded 7/6/2005 by Abdulkader
'

' Dim objNotesSession As Object
Dim objNotesMailFile As Object
Dim objNotesDocument As Object
Dim objNotesField As Object


'Function SendMail()

On Error GoTo SendMailError

EmailSendTo = "
EmailCCTo = "

'Establish Connection to Notes
Set objNotesSession = CreateObject("Notes.NotesSession")

'Establish Connection to Mail File
' .GETDATABASE("SERVER","FILE")
Set objNotesMailFile = objNotesSession.GETDATABASE("", "")
'Open Mail
objNotesMailFile.OPENMAIL

'Create New Memo
Set objNotesDocument = objNotesMailFile.CREATEDOCUMENT

'Create 'Subject' Field
Set objNotesField = objNotesDocument.APPENDITEMVALUE("Subject",
EmailSubject)

'Create 'Send To' Field
Set objNotesField = objNotesDocument.APPENDITEMVALUE("SendTo", EmailSendTo)

'Create 'Copy To' Field
Set objNotesField = objNotesDocument.APPENDITEMVALUE("CopyTo", EmailCCTo)

'Create 'Body' of memo
Set objNotesField = objNotesDocument.CREARERICHTEXTITEM("Body")

With objNotesField
.APPENDTEXT "Please find attached herewith the form duly filled in.
Looking forward toward receiving your quote. Thanks"
End With

'Attach the file --1454 indicate a file attachment
objNotesField = objNotesField.EMBEDOBJECT(1454, "", EmailSubject)
'objNotesField = objNotesField.EMBEDOBJECT(1454,"",ActiveWorkbook.F ullName)

'Send the e-mail
objNotesDocument.Send (0)

'Release storage
Set objNotesSession = Nothing
Set objNotesMailFile = Nothing
Set objNotesDocument = Nothing
Set objNotesField = Nothing

'Set return code
SendMail = True

'Exit Function

SendMailError:
Dim Msg
Msg = "Error#" & Str(Err.Number) & "was generated by" & Err.Source & Chr(13)
& Err.Description
MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext

SendMail = False


End Sub


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200507/1