1%%[
2 Var @emailaddr
3 Set @emailaddr = 'help@example.com'
4
5 Set @ts = CreateObject('TriggeredSend')
6
7 Set @tsDef = CreateObject('TriggeredSendDefinition')
8
9 Set @ts_subkey = @emailaddr
10 SetObjectProperty(@tsDef, 'CustomerKey', 'VolConfirm')
11 SetObjectProperty(@ts, 'TriggeredSendDefinition', @tsDef)
12
13 Set @ts_sub = CreateObject('Subscriber')
14 SetObjectProperty(@ts_sub, 'EmailAddress', @emailaddr)
15 SetObjectProperty(@ts_sub, 'SubscriberKey', @ts_subkey)
16 AddObjectArrayItem(@ts, 'Subscribers', @ts_sub)
17
18 Set @ts_statusCode = InvokeCreate(@ts, @ts_statusMsg, @errorCode)
19
20 If @ts_statusCode != 'OK' then
21 RaiseError(@ts_statusMsg, 0, @ts_statusCode, @errorCode)
22 EndIf
23]%%