I have
to open a mailform fill in adress data then schuld be inserted a quicktext
fom email.dot

Public Sub Mail1()

Dim Nachricht

Dim Adresse

Dim Text



Set Item = ActiveInspector.CurrentItem

Item.Body = Item.Body & Date & " " + ": " + "Mail1 verschickt" & vbCrLf
'<---------



Set Nachricht = Application.CreateItem(olMailItem)

Set Item = ActiveInspector.CurrentItem

Nachricht.Subject = "subject" '<----------------------

Nachricht.To = Item.Email1Address

Adresse = Item.CompanyName + vbCr

Adresse = Adresse + Item.BusinessAddressStreet + vbCr

Adresse = Adresse + Item.BusinessAddressPostalCode + " "

Adresse = Adresse + Item.BusinessAddressCity + vbCr + vbCr

Adresse = Adresse + Item.Title + " " + Item.LastName + vbCr + vbCr +
vbCr

Nachricht.Body = Adresse





Dim myWord As Word.Application

Set myWord = CreateObject("Word.Application")

'

Schnellbausteintext =
myWord.NormalTemplate.BuildingBlockEntries("TEXTBAUSTEIN") so wars





Nachricht.Body = Nachricht.Body + Schnellbausteintext



Nachricht.Categories = "Geschäftlich"

Nachricht.Importance = olImportanceNormal

Nachricht.Display






can anyone help me to inster autotext not from normal dot but from from
email dot



Thanks