🚀 go-pugleaf

Witam

W swoim programie mam wstawioną kontrolkę, która pozwala na wizualne
edytowanie maila. Jedną z funkcjonalności jest wstawianie obrazka. Na
wyjściu dostaję zmienną string z kodem html dokumentu. Tak przygotowany
email może być wysłany jako email i tu pojawiają się schody...

Do wysyłki maila używam biblioteki SMTP Send Mail, która oczywiście
wysyła html'owe maile z jednym zastrzeżeniem - wszystkie użyte w mailu
obrazki, aby zostały zakodowane w mailu, muszą być dołączone jako
załącznik.

W jaki sposób mogę odczytać linki ze zmiennej string?
Popełniłem taki oto fragment:

For i = 0 To UBound(sHTML)
	If InStr(1, sHTML(i), "<IMG src=") > 0 Then
     	 For iAn = 0 To Len(sHTML(i))
        iLastA = InStr(sHTML(i), Chr(34) & ">")
        iLen = Len(sHTML(i))
        iPos = iLastA - 22
        sLink = Mid(sHTML(i), 22, iPos)
      Next iAn
               
      If lblAttachment.Caption = "" Then
        lblAttachment.Caption = sLink
      Else
        lblAttachment.Caption = lblAttachment.Caption &  ";" & sLink
      End If
                
    End If
Next i
.Attachment = Trim(lblAttachment.Caption)


Niestety, średnio to sobie radzi, a już zupełnie, jak są 2 linki do
grafiki w jednej linii...


-- 
Pozdrawiam

Krzysztof