Пытаюсь отправить письмо из экселя (вернее, собираюсь сделать рассылку с поздравлениями). Ну и вот, с помощью книг разных, сделал такой вот макрос.
- Код: Выделить всё
Sub test()
Dim adrBook As Outlook.AddressList
Dim adrEntry As Outlook.AddressEntry
Dim newMessage As Outlook.MailItem
Dim newRecipient As Outlook.Recipient
Dim strAddress As String
Dim myOutlookApp As Application
Dim MessageSubject As String
Dim MessageBody As String
MessageSubject = "текст"
MessageBody = "текст"
strAddress = "адрес"
Set myOutlookApp = Outlook.Application
Set newMessage = myOutlookApp.CreateItem(olMailItem)
newMessage.Subject = MessageSubject
newMessage.Body = MessageBody
Set newRecipient = newMessage.Recipients.Add("клиент")
newMessage.Recipients("клиент").Address = strAddress
newMessage.Send
End Sub
запускаю, а он говорит:
- Код: Выделить всё
Run-time error '13'
Type mismatch
Чего ему не хватает?
