%%[VAR @EmailSend, @EmailDef
    SET @EmailDef = CreateObject('EmailSendDefinition')

    //send definition
    SetObjectProperty(@EmailDef, 'Name', 'AMP def')
    SetObjectProperty(@EmailDef, 'EmailSubject', 'AMP subject')

    //audience
    var @attr SET @attr = CreateObject("SendDefinitionList")
    SetObjectProperty(@attr, "SalesForceObjectID", "00O26000000MhCZ")
    SetObjectProperty(@attr, "DataSourceTypeID", "SalesForceReport")
    AddObjectArrayItem(@EmailDef,'SendDefinitionList',@attr)

    //email object
    var @email SET @email = CreateObject("Email")
    SetObjectProperty(@email, "ID", "4756")

    SetObjectProperty(@EmailDef, 'Email', @email)


    var @ts_statusCode SET @ts_statusCode = InvokeCreate(@EmailDef, '1', 1)

  ]%%