Faxing with DDE Update

A reader has provided this helpful code that allow user’s to add multiple attachments.

In response to my article on faxing with DDE in AW 5.12-5.14, Tim contributed some code for adding multiple attachments:

‘Add attachments
    Set rstAttachments = _
      db.OpenRecordset(“Select * from tblBulkEMailMessageAttachments”)
      If rstAttachments.RecordCount > 0 Then
         With rstAttachments
            .MoveLast
            .MoveFirst
            Do Until .EOF
               DDEPoke channum:=lngChannel, Item:=”sendfax”, _
                  Data:=”attach (” & Chr$(34) _
                  & rstAttachments!BulkEMailMessageAttachments & Chr$(34) & “)”
               .MoveNext
            Loop
         End With
      End If

Thanks for the contribution, Tim!