Dim zayavka 
       
Sub palneta() 
        Set mailItems = Application.Session.GetDefaultFolder(olFolderInbox).Items
        Set mailmsg = mailItems.GetLast
        If mailmsg Is Nothing Then
            GoTo ForNext
        End If
            Theme = mailmsg.Subject
            zayavka = mailmsg.Body
            user = mailmsg.To
End sub

Sub wewe()
Dim zayavka$, a, Technician$, ID&, Author$, Date1, Theme$, Description$
zayavka = "Фамилия Имя, вам назначена заявка № 169" & vbCrLf & _
"Заявитель:  АЗК -34" & vbCrLf & _
"Создал: ФамилияИмя" & vbCrLf & _
"Дата создания: 13.10.2017 10:36" & vbCrLf & _
"Тема: Не работает отсекатель" & vbCrLf & _
"Описание : ТРК-3 (Аи-95)" & vbCrLf & _
"Для просмотра подробных сведений перейдите по ссылке http://sik.wlad1164.ru/RequestLink"
'Technician=Фамилия Имя
'ID = 169
'Autor = АЗК - 34
'Date=13.10.2017 10:36
'Theme=Не работает отсекатель
'Description=ТРК-3 (Аи-95)

a = Split(zayavka, vbCrLf)
Technician = Trim$(Split(a(0), ",")(0))
ID = Trim$(Split(a(0), "№")(1))
Author = Trim$(Split(a(1), ":")(1))
Date1 = CDate(Trim$(Split(a(3), ": ")(1)))
Theme = Trim$(Split(a(4), ":")(1))
Description = Trim$(Split(a(5), ":")(1))

End Sub