У меня на клопке в Excel такой код
- Код: Выделить всё
Sub NewMailToRova()
Dim ol As Object, myMail As Object, MyFile As String
Set ol = CreateObject("outlook.application")
Set myMail = ol.CreateItem(olMailItem)
With myMail
.To = "Иванов Иван Иванович" ' У нас в компании все адреса в Outlook зашиты под ФИО их владельцев
.Subject = "Привет!"
.Body = "" & vbCrLf & "Вот" 'Это я пустую строку добавляю
.Attachments.Add ActiveWorkbook.Path & "\" & ActiveWorkbook.Name, olByValue, 1, ActiveWorkbook.Name
.Display
End With
End Sub
Работает нормально, т.е создает сообщения с вложением (ранее сохраненным), остается только отправить.
Проблема вот в чем:
Только что созданный и не сохраненный документ например Excel, понятное дело не имеет адреса, и "ActiveWorkbook.Path" соответственно не проходит. Как мне это исправить.
С уважением.