Outlook.mailitem - diferent replace result when not displayed

Question

Hello everybody!
I am developing an app to generate personalized emails from Excel file and .msg template.
In the template, I insert "variables" like this: ^name^,
which means that is is a placeholder for values from "name" column in source
Excel file.
this template is saved as .msg file on local disc and used as an argument in.CreateItemFromTemplate()
after loading the template , it cycles from all the columns and rows of the Excel file and replaces the inserted
variables:
loading excel:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim fpath As String
OpenFileDialog1.ShowDialog()
fpath = OpenFileDialog1.FileName
workbook = APP.Workbooks.Open(fpath)
worksheet = APP.ActiveSheet
Dim CellData As String
Dim LastCol As Long
Dim LastRow As Long
Dim bunka As String
LastCol = workbook.ActiveSheet.UsedRange.Columns.Count
LastRow = workbook.ActiveSheet.UsedRange.Rows.Count
objData = worksheet
DataGridView1.ColumnCount = 1
DataGridView1.Columns(0).Name = "Column"
DataGridView1.Columns(0).Width = 130
For i = 1 To LastCol
bunka = worksheet.Cells(1, i).Value
Combo_To.Items.Add(bunka)
Combo_SaveName.Items.Add(bunka)
Dim row As String() = New String() {bunka}
DataGridView1.Rows.Add(row)
Next
Dim btn As New DataGridViewButtonColumn()
DataGridView1.Columns.Add(btn)
btn.HeaderText = "Use"
btn.Text = "+"
btn.Name = "btn"
btn.Width = 50
btn.UseColumnTextForButtonValue = True
btn.CellTemplate.Style.BackColor = System.Drawing.Color.Green
Combo_To.SelectedIndex = 1
End Sub
after that the DataGridView1 loosk like this:
the "+" buttons are used to insert text variables into the mail body.
code for inserting is, this works fine:
Private Sub grdData_CellContentClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
Dim colName As String = DataGridView1.Columns(e.ColumnIndex).Name
If e.RowIndex < 0 Then Exit Sub
If colName = "btn" Then
Dim variable As String
variable = "^" & DataGridView1.Item(0, e.RowIndex).Value & "^"
My.Computer.Clipboard.SetText(variable)
objOutlookMsgY.GetInspector().Activate()
SendKeys.Send("^v") 'Paste
End If
End Sub
code for generating email from template:
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim sessionName As String
Dim docas As Object
Dim variable As String
Dim dosazeno As String
Dim SavePath As String
Dim objOutlookMsgTEMP As Outlook.MailItem
worksheet = APP.ActiveSheet
objOutlookMsgY.SaveAs("C:\temp_msg2.msg")
clip = objOutlookMsgY.HTMLBody
MsgBox("clip saved")
sessionName = InputBox("Name this session:", "New Session", Today & "_")
SavePath = RootFolder & "\" & sessionName & "\_Initial session"
My.Computer.FileSystem.CreateDirectory(SavePath)
For radek = 2 To workbook.ActiveSheet.UsedRange.Rows.Count
ToolStripProgressBar1.Maximum = workbook.ActiveSheet.UsedRange.Rows.Count - 1
objOutlookMsgTEMP = objOutlook.CreateItemFromTemplate("C:\temp_msg2.msg")
' objOutlookMsgTEMP.Display()
For i = 1 To DataGridView1.RowCount
variable = Convert.ToString("^" & worksheet.Cells(1, i).value & "^")
dosazeno = Convert.ToString(worksheet.Cells(radek, i).value)
'wait(50)
Debug.Print("*" & variable & "*" & " >>> " & "*" & dosazeno & "*")
objOutlookMsgTEMP.HTMLBody = objOutlookMsgTEMP.HTMLBody.Replace(variable, dosazeno)
objOutlookMsgTEMP.HTMLBody = Replace(objOutlookMsgTEMP.HTMLBody, variable, dosazeno)
'wait(50)
objOutlookMsgTEMP.To = worksheet.Cells(radek, ToCol + 1).value
Next
objOutlookMsgTEMP.SendUsingAccount = accounts(Combo_From.SelectedIndex + 1)
Dim objDoc As Microsoft.Office.Interop.Word.Document
Dim objBkm As Microsoft.Office.Interop.Word.Bookmark
'On Error Resume Next
objDoc = objOutlookMsgTEMP.GetInspector.WordEditor
objBkm = objDoc.Bookmarks("_MailAutoSig")
If Not objBkm Is Nothing Then
objBkm.Select()
objDoc.Windows(1).Selection.Delete()
End If
objDoc = Nothing
objBkm = Nothing
objOutlookMsgTEMP.SaveAs(SavePath & "\" & worksheet.Cells(radek, Combo_SaveName.SelectedIndex + 1).value & ".msg")
' objOutlookMsgTEMP.Send()
ToolStripProgressBar1.Value = radek - 1
objOutlookMsgTEMP.Close(SaveMode:=Outlook.OlInspectorClose.olDiscard)
Next
End Sub
for replacing is used this:
.....objOutlookMsgTEMP.Display()
objOutlookMsgTEMP.HTMLBody = objOutlookMsgTEMP.HTMLBody.Replace(variable, valueFromExcel).....
or
.....objOutlookMsgTEMP.HTMLBody = Replace(objOutlookMsgTEMP.HTMLBody, variable, valueFromExcel).....
after replacing, the new message is saved as .msg or send
the problem:
everything works fine when the message is displayed while replacing. But when not displayed, only SOME variables
are replaced. I don't really understand why there is such difference in the result and why only SOME are
not replaced. I have tried changing the columns's names but found no connection between it and the result. when the message is displayed it takes like 10 times longer and makes the PC unusable.
real example:
the tamplate:
^jmeno^
^email^
^prij^
^jmeno3^
^sec code^
result, message displayed:
Jakub
[email protected]
Dxxx
16
266548
result, message not displayed:
^jmeno^
[email protected]
^prij^
4
449447
I have also tried adding some Wait functions, didn't help. I would really appreciate if you could help me
figure this out and explain why this happens. Thank you

Answer 1

Please also copy the below two vars from the debugger window and paste here as it is.
Debug.Print("*" & variable & "*" & " >>> " & "*" & dosazeno & "*")
Also send us you message template, you can send only the section where the two non working vars exist.
Fouad Roumieh