< návrat zpět

MS Excel


Téma: Odeslání listu na e-mail rss

Zaslal/a 19.5.2014 9:48

Prosím, jak udělat makro na odeslání listu na e-mail?
Představa je taková. V List1 vložím tlačítko a když na něj kliknu, tak odešle List2 na předdefinovaný e-mail. Díky moc!

Zaslat odpověď >

Strana:  1 2   další »
#019525
avatar
toto tu uz bolo vela krat riesene

http://wall.cz/index.php?m=search&art=1&post=1&_security_token=eac6e3f6f7ffeb167f72d934165fa403&q=outlookcitovat
#019529
avatar
Může mi přesto někdo prosím poradit?
Konkrétně: V List1 vložím tlačítko a tomu chci přiřadit makro, které odešle List2 na e-mail.
Díky moc!citovat
#019530
avatar
jaj ludska lenivost nema meze :)

tak tu vam posielam jeden podobny priklad dorobil som tam aj cuplik (samozrejme musite mat nastaveny outlook inac vam to nebude fungovat)

je to massivne posielanie mailu podla toho aku mate v stlpci A nastavenu adresu a posle sheet ktory mate napisane v stlpci B
Příloha: zip19530_mail.zip (20kB, staženo 67x)
citovat
#019533
avatar
nebo takto odešle aktivní list na mail zadaný přímo v kódu:
Sub Email1()
'Working in 2000-2010
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim Destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim OutApp As Object
Dim OutMail As Object

With Application
.ScreenUpdating = False
.EnableEvents = False
End With

Set Sourcewb = ActiveWorkbook

'Copy the sheet to a new workbook
ActiveSheet.Copy
Set Destwb = ActiveWorkbook

'Determine the Excel version and file extension/format
With Destwb
If Val(Application.Version) < 12 Then
'You use Excel 97-2003
FileExtStr = ".xls": FileFormatNum = -4143
Else
'You use Excel 2007-2010
'We exit the sub when your answer is NO in the security dialog that you only
'see when you copy a sheet from a xlsm file with macro's disabled.
If Sourcewb.Name = .Name Then
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
MsgBox "Your answer is NO in the security dialog"
Exit Sub
Else
Select Case Sourcewb.FileFormat
Case 51: FileExtStr = ".xlsx": FileFormatNum = 51
Case 52:
If .HasVBProject Then
FileExtStr = ".xlsm": FileFormatNum = 52
Else
FileExtStr = ".xlsx": FileFormatNum = 51
End If
Case 56: FileExtStr = ".xls": FileFormatNum = 56
Case Else: FileExtStr = ".xlsb": FileFormatNum = 50
End Select
End If
End If
End With

' 'Change all cells in the worksheet to values if you want
' With Destwb.Sheets(1).UsedRange
' .Cells.Copy
' .Cells.PasteSpecial xlPasteValues
' .Cells(1).Select
' End With
' Application.CutCopyMode = False

'Save the new workbook/Mail it/Delete it
TempFilePath = Environ$("temp") & "\"
TempFileName = "Part of " & Sourcewb.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss")

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With Destwb
.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
On Error Resume Next
With OutMail
.to = ""
.CC = ""
.BCC = ""
.Subject = " " & Format(Now - 1, "dd.mm.yyyy")
Rem .Body = "Hi there"
.Attachments.Add Destwb.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.send 'or use .display
End With
On Error GoTo 0
.Close savechanges:=False
End With

'Delete the file you have send
Kill TempFilePath & TempFileName & FileExtStr

Set OutMail = Nothing
Set OutApp = Nothing

With Application
.ScreenUpdating = True
.EnableEvents = True
End With

End Sub
citovat
#019536
avatar
Super, díky moc, jede to parádně :-)citovat
#041665
avatar
Dobrý den,

Můžete mi poradit jak se v tom kódu odkáza na určitou buňku kde bude např. emailová adresa?citovat
#041666
elninoslov
Bez skúšania....
.to = ""
-->>
.to = ThisWorkbook.Worksheets("meno listu s mailom").Range("adresa bunky s mailom").Value

Mám Vám pozrieť, kde to nastaviť aj vo verzii od Palooo ?citovat
#041667
avatar
Děkuji. Funguje to super. Nevím co ja Paloo.citovat
#041668
elninoslov
"Palooo" je užívateľ, ktorý pridal v prvom príspevku odkaz na riešenie, a v treťom príspevku odkaz na súbor s príkladom v prílohe. A potom nasleduje ďalší príklad od užívateľa "dream2003" formou zobrazeného textu. Všetky tieto menované príspevky obsahujú nejaký kód. Nenapísal ste, na ktorý príklad sa pýtate. Preto som písal, či chcete aby som pozrel aj na ten príklad od užívateľa "Palooo".citovat
#041669
avatar
Vie to fungovať aj na gmailcitovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

Kopírovanie textu do neprázdnej bunky

elninoslov • 13.11. 1:22

WebBrowser

Palooo • 12.11. 14:00

WebBrowser

jardik • 11.11. 16:20

Kopírovanie textu do neprázdnej bunky

kabaka • 11.11. 16:07

Kopírovanie textu do neprázdnej bunky

elninoslov • 11.11. 15:56

Podmíněné formátování - formáty buněk

marjankaj • 11.11. 11:29

Kopírovanie textu do neprázdnej bunky

kabaka • 11.11. 10:24