• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: přiložit soubor

Zaslal/a thums 30.3.2024 19:10

mám kód pro mail...ještě bych tam potřeboval dopsat, aby se mi aktuální soubor přidal jako příloha...díky...

Sub a()
Dim xOutApp As Object
Dim xOutMail As Object
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
On Error Resume Next
With xOutMail
.To = Range("A1")
.CC = Range("a2")
.BCC = Range("a2")
.Subject = Range("a3")
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub

Zaslat odpověď >

---

elninoslov(31.3.2024 10:11)#056376

2 varianty. Ak Vám nie je jasný rozdiel, píšte.
Sub a()
Dim xOutApp As Object
Dim xOutMail As Object
Dim WS As Worksheet

ThisWorkbook.Save

On Error Resume Next
Set xOutApp = GetObject(, "Outlook.Application")
On Error GoTo 0

If xOutApp Is Nothing Then
Set xOutApp = CreateObject("Outlook.Application")
End If
Set xOutMail = xOutApp.CreateItem(0)
Set WS = ThisWorkbook.ActiveSheet

On Error Resume Next

With xOutMail
.To = WS.Range("A1")
.CC = WS.Range("A2")
.BCC = WS.Range("A2")
.Subject = WS.Range("A3")
.Body = xMailBody
.Attachments.Add ThisWorkbook.FullName
.Display 'or use .Send
End With

If Err.Number <> 0 Then
MsgBox "Pri odosielaní mailu došlo k chybe !", vbCritical
End If

On Error GoTo 0

Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub

Sub b()
Dim xOutApp As Object
Dim xOutMail As Object
Dim WS As Worksheet
Dim tmpFile As String

tmpFile = Environ$("temp") & "\" & ThisWorkbook.Name
ThisWorkbook.SaveCopyAs tmpFile

On Error Resume Next
Set xOutApp = GetObject(, "Outlook.Application")
On Error GoTo 0

If xOutApp Is Nothing Then
Set xOutApp = CreateObject("Outlook.Application")
End If
Set xOutMail = xOutApp.CreateItem(0)
Set WS = ThisWorkbook.ActiveSheet

On Error Resume Next

With xOutMail
.To = WS.Range("A1")
.CC = WS.Range("A2")
.BCC = WS.Range("A2")
.Subject = WS.Range("A3")
.Body = xMailBody
.Attachments.Add tmpFile
.Display 'or use .Send
End With

If Err.Number <> 0 Then
MsgBox "Pri odosielaní mailu došlo k chybe !", vbCritical
End If

On Error GoTo 0

Kill tmpFile

Set xOutMail = Nothing
Set xOutApp = Nothing
Set WS = Nothing
End Sub

Příloha: 56376_odoslat-mail-z-vba.zip (16kB, staženo 1x)

citovat

thums(31.3.2024 11:30)#056377

Super, mockrát díky...a pokud bych chtěl změnit cestu na vypsání mailu na list 2 ? citovat

thums(31.3.2024 11:36)#056378

thums napsal/a:

Super, mockrát díky...a pokud bych chtěl změnit cestu na vypsání mailu na list 2 ?

a v předmětu zprávy by se zobrazil aktuální datum a k tomu libovolný text?citovat

elninoslov(1.4.2024 0:08)#056379

Neviem, ktorý mail myslíte. Jeden používate ako príjemcu, a druhý ako príjemcu kópie a príjemcu skrytej kópie.
Ak prvý, tak si zmeňte iba
.To = ThisWorkbook.Worksheets("List2").Range("A1")a
.Subject = Format(Date, "DD.MM.YYYY") & " - " & WS.Range("A3")

Příloha: 56379_odoslat-mail-z-vba.zip (19kB, staženo 3x)

citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse