W
WP
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 "(e-mail address removed)"
.AddRecipient "(e-mail address removed)"
.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
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 "(e-mail address removed)"
.AddRecipient "(e-mail address removed)"
.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