KDPoid
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Как для нуба - резиновое понятие... 
Код:
Sub SomeAuto()
Set objMail = Application.ActiveInspector.CurrentItem ' берём объект текущего письма, из которого вызван макрос.
Dim s() As String ' массив строк
s = Split(objMail.Body, Chr(13)) ' разбиваем тедло письма по переводу строки и засовываем в массив
For i = 0 To UBound(s) ' идём по строкам
ws = s(i) ' для наглядности берём i-ю строку из тела письма.
If InStr(1, ws, "To:") = 2 Then ' если строка начинается с To:
objMail.To = Right(ws, Len(ws) - 4) ' засовываем её в строку адресата без первых 4-х символов.
End If
Next i
End Sub
|
Так понятно ?
Добавлено:
Конечно, это только пример.
Что делать, если To: не сначала строки или встречается не один раз, нужно ли продолжать перебирать строки, когда первый раз нашли и т.д.... подумайте сами
|
