ReturnAddressFromTop Property Example

This example creates a new document and adds an envelope with a predefined delivery address and return address. The example then sets the distance between the top edge of the envelope and the return address to 0.5 inch and sets the distance between the left edge of the envelope and the return address to 0.75 inch.

addr = "Eric Lang" & vbCr & "123 Main" _
    & vbCr & "Seattle, WA  98040"
retaddr = "Nate Sun" & vbCr & "123 Main" _
    & vbCr & "Bellevue, WA  98004"
With Documents.Add.Envelope
    .Insert Address:=addr, ReturnAddress:=retaddr
    .ReturnAddressFromTop = InchesToPoints(0.5)
    .ReturnAddressFromLeft = InchesToPoints(0.75)
End With