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: Elena01
| Femeie 19 ani Braila cauta Barbat 19 - 31 ani |
|
TRaP
Moderator
Inregistrat: acum 6 ani
Postari: 748
|
|
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 5 ani)
|
|
pus acum 5 ani |
|