MS Excel

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 3 4 další »

Palooo(19.5.2014 10:14)#019525

toto tu uz bolo vela krat riesene

http://wall.cz/index.php?m=search&art=1&post=1&_security_token=eac6e3f6f7ffeb167f72d934165fa403&q=outlook citovat

pejsy(19.5.2014 12:30)#019529

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

Palooo(19.5.2014 12:40)#019530

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: zip

19530_mail.zip (20kB, staženo 167x)

citovat

dream2003(19.5.2014 13:18)#019533

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 Subcitovat

pejsy(19.5.2014 13:44)#019536

Super, díky moc, jede to parádně :-)citovat

Pavel-Krivanek(16.10.2018 8:55)#041665

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

elninoslov(16.10.2018 9:56)#041666

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

Pavel-Krivanek(16.10.2018 10:44)#041667

Děkuji. Funguje to super. Nevím co ja Paloo.citovat

elninoslov(16.10.2018 20:55)#041668

"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

lubo1(17.10.2018 8:26)#041669

Vie to fungovať aj na gmailcitovat

Strana: 1 2 3 4 další »

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

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje