Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff.
|
Nou pe simpatie:
Profil Adelinadia
 | Femeie
25 ani
Mures
cauta Barbat
27 - 71 ani |
|
|
Mrrrr's Forum (VIEW ONLY)ReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
TRaPModerator
Postari: 960
|
|
Sub SendEmail()
Dim olkApp As Object
Dim strBody As String
Dim strAtt As String
'Dim strSubject As String
'Dim strTo As String
' strTo = "blabla@email.com"
strBody = "Vezi fisierul atasat"
If ActiveDocument.FullName = "" Then
MsgBox "Nu ai salvat inca documentul."
Exit Sub
Else
If MsgBox("Nu ai salvat ultimele modificari, vrei sa continui?", vbYesNo, "Error") <> vbYes Then Exit Sub
End If
strAtt = ActiveDocument.FullName
Set olkApp = CreateObject("outlook.application")
With olkApp.createitem(0)
' .to = strTo
' .Subject = strSubject
.body = strBody
.attachments.Add strAtt
'.send
.Display
End With
Set olkApp = Nothing
End Sub
|
Source: https://www.experts-exchange.com/questi ... -text.html
|
|
| |
|
