Transfering Custom Fields into Message

[parscon]

Hello , I created custom form and i need when send it the value on custom fields will be place into on top section of my message . could you please help me how it possible ?
Thank you so much .

[gmayor]

You are going to have to explain the requirement in more detail. What sort of form? What do you mean by 'top section' in this context.

[parscon]

Hello Dear gmayor , Thanks for the quick reply

I created a field with user and text field and when want to send a new email if this field has value automatically will be placed on top of message .

For Example :

Hello Dear Sir ....

and i add #reply value in text field and when send email want to show like :

#reply
Hello Dear Sir ...

[parscon]

I used This code but the value in Company will be place after signature , i need placed in top of my message :


Function Item_Send()
Item.Body = Item.Body & vbCrLf & Item.UserProperties("Company")
End Function

[gmayor]

Still no indication of where this 'field' is located, but with respect to your most recent message

Item.Body = Item.UserProperties("Company") & vbCrLf & Item.Body will put the value before the body.
If you want to edit the body you need to use the Word message editor e.g.

Sub Example()
Dim olEmail As Outlook.MailItem
Dim olInsp As Outlook.Inspector
Dim wdDoc As Object
Dim oRng As Object

On Error Resume Next
Set olEmail = ActiveInspector.CurrentItem
With olEmail
Set olInsp = .GetInspector
Set wdDoc = olInsp.WordEditor
Set oRng = wdDoc.Range(0, 0)
'oRng is the start of the message
oRng.Text = olEmail.UserProperties("Company") & vbCr 'Your field result
.Display
.sEnd
End With
lbl_Exit:
Set olEmail = Nothing
Set olInsp = Nothing
Set wdDoc = Nothing
Set oRng = Nothing
Exit Sub
End Sub

[parscon]

Thank you so much , just for line break for custom filed what i must to do like ?



Function Item_Send()
Item.Body = Item.UserProperties("Company") & Item.UserProperties("User") & Item.Body & vbCrLf
End Function


That mean line break between Company and User ?

Thanks for your great help.


I fixed it with


& vbNewLine &

Thanks