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.
|
Lista Forumurilor Pe Tematici
|
Mrrrr's Forum (VIEW ONLY) | Reguli | Inregistrare | Login
POZE MRRRR'S FORUM (VIEW ONLY)
Nu sunteti logat.
|
Nou pe simpatie:
Sophya
 | Femeie
25 ani
Bucuresti
cauta Barbat
25 - 54 ani |
|
|
TRaP
Moderator
Inregistrat: acum 7 ani
Postari: 836
|
|
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:
Modificat de TRaP (acum 6 ani)
|
|
| pus acum 6 ani |
|