<!--#include file="%APPDIR%\script\crm.vbs"-->

Dim oProject, oActiveView
Dim oCurrentRecordSet, oCurrentRecord
Set oProject = cRM.CurrentProject
Set oActiveView = oProject.ActiveViews.ActiveView
Set oCurrentRecordSet = oActiveView.CurrentRecordSet
Set oCurrentRecord = oCurrentRecordSet.CurrentRecord


sBetreff = "«'Ihre Anfrage vom '+date$(today())»"
sIndivText = "<<<<<Ersetzen Sie dies durch Ihren individuellen Text>>>>>"

sBetreff = cstr(oCurrentRecord.GetContentsByFormula(cstr(sBetreff)))
sText = "«AnredeBr + RTRIM$(' ' + Name)+','»"
sText = cstr(oCurrentRecord.GetContentsByFormula(cstr(sText)))
sText = sText & "<p>Vielen Dank fuer Ihre Anfrage.</p>" &_ 
	sIndivText     &_
	"<p>Mit freundlichen Gruessen</p><p>Ihre Musterfirma</p>"


 'Outlook-Objekt anlegen:
Set oOutlookApp = CreateObject("Outlook.Application")
Set oItem = oOutlookApp.CreateItem(0)
With oItem
    ' Adressen:
    .To = CStr(oCurrentRecord.GetContentsByName(cstr("eMail")))
    .CC = CStr(oCurrentRecord.GetContentsByName(cstr("eMail2")))
    .BCC = "unsichtbar@musterdomain.de"
    
    ' Neue Nachricht:
    .Subject = CStr(sBetreff)
    ' HTML Nachrichtentext erzeugen:
    .HTMLBody  = "<p>" & CStr(sText) & "</p>"
    
     ' .Body für eine Text eMail verwenden, z.B.
    ' .Body = CStr(sText)
        
    ' Mögliche Dateianhänge, z.B.:
    ' .Attachments.Add "c:\test.txt"
    ' .Attachments.Add "c:\test2.txt"
    
    ' eMail zum Bearbeiten anzeigen:
   .Display

End With