Code: Select all
Private Sub cmdSend_Click()
Dim oWord As Object
Dim oDoc As Object
Dim strPath As String
strPath = "C:\MM-Utilities\Order.doc"
Dim WFrom As String
WFrom = GetComputerName
frmWait.Show
Set oWord = CreateObject("word.application")
Set oDoc = oWord.documents.Add("C:\MM-Utilities\Order.dot")
With oWord.Selection.Find
.Execute FindText:="#OrderNo#", ReplaceWith:=Me.Text1.Text & " From: " & WFrom, Replace:=2
.Execute FindText:="#Vehicle#", ReplaceWith:=Me.Text2.Text, Replace:=2
.Execute FindText:="#Registration#", ReplaceWith:=Me.Text3.Text, Replace:=2
.Execute FindText:="#Customer#", ReplaceWith:=Me.Text4.Text, Replace:=2
.Execute FindText:="#DateOnSite#", ReplaceWith:=Me.Text5.Text, Replace:=2
.Execute FindText:="#CompletionDate#", ReplaceWith:=Me.Text6.Text, Replace:=2
.Execute FindText:="#DescriptionOfWorkRequired#", ReplaceWith:=Me.RichTextBox1.Text, Replace:=2
.Execute FindText:="#Picture#"
oWord.Selection.InlineShapes.AddPicture FileName:=Me.Text7.Text
End With
oDoc.Protect 2, , "mfg"
oDoc.SaveAs "C:\mm-Utilities\Order.Doc"
oDoc.Close False
Set oDoc = Nothing
oWord.NormalTemplate.Saved = True
oWord.Quit
Set oWord = Nothing
Unload frmWait
MAPISession1.SignOn
With MAPIMessages1
.SessionID = MAPISession1.SessionID
.Compose
.MsgSubject = "Order From " & CompName
.MsgNoteText = "Official M&M Vehicle Repairs Ltd Order"
.AttachmentPathName = strPath
.Send True
End With
exitHandler:
On Error GoTo ErrHandler
MAPISession1.SignOff
Exit Sub
ErrHandler:
If Err.Number = 32001 Then
Resume Next
End If
Resume exitHandler
End Sub