При условии что почтовый агент Microsoft Outlook жив здоров
код макроса в Word
- Код: Выделить всё
Sub SendMail()
Dim tagIDArray(0 To 3) As String
Dim valueArray(0 To 3) As String
tagIDArray(0) = "PR_DISPLAY_NAME"
tagIDArray(1) = "PR_GIVEN_NAME"
tagIDArray(2) = "PR_SURNAME"
tagIDArray(3) = "PR_COMMENT"
valueArray(0) = "Kim Buhler"
valueArray(1) = "Kim"
valueArray(2) = "Buhler"
valueArray(3) = "This is a comment"
ActiveDocument.Application.AddAddress TagID:=tagIDArray(), Value:=valueArray()
End Sub
из хелпа выдаёт ошибку ...
Run-time error '4672'
Не удаётся добавить адрес
в личную адресную книгу
Что не правильно ....????
