Úprava kódu pro odeslání emailu. Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

luko02420
Level 1.5
Level 1.5
Příspěvky: 122
Registrován: únor 12
Pohlaví: Nespecifikováno

Úprava kódu pro odeslání emailu.

Příspěvekod luko02420 » 01 zář 2018 20:10

Dobrý den, potřeboval bych poradit jak upravit tento kod, aby mi odesílal email automaticky pri zavření sesitu.
A dotaz, fungoval by kod po uprave i pro thunderbird, nebo je to jenom pro outlook?
Děkuji za pomoc.

Kód: Vybrat vše

Sub ExcelOutlookPriloha()
    '!!!!!Před použitím je třeba v Tools / References zaškrtnout volbu Microsoft Outlook xx.0 Object Library.!!!!!
    'Tools / References / Microsoft Outlook x.x Object Library

    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem
    Dim objNsp As Object
    Dim colSyc As Object
    Dim objSyc As Object
    Dim i As Integer
    Dim adresat As String
   
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(olMailItem)
    Set objNsp = OutApp.Application.GetNamespace("MAPI")  'CORRECTION to Refer to the OutLook Application correctly
    Set colSyc = objNsp.SyncObjects
   
    adresat = "aaa@seznam.cz"
   
    With OutMail
   
        'adresát
        .To = adresat
       
        'kopie pro
        '.CC = "schranka@email.com"
       
        'skrytá kopie pro
        '.BCC = "eee@gggg.cz"
       
        'předmět zprávy
        .Subject = "Dodací list (e)"
       
        'text zprávy a určení buňky
        .Body = "Dobrý den, , zasílám Vám dodací list číslo:  " & ActiveSheet.Range("D3") & Chr(13) & Chr(13) & "S pozdravem" & Chr(13) & Chr(13) & "bb" & Chr(13) & "vedoucí b" & Chr(13) & "b" & Chr(13) & "b5" & Chr(13) & "b" & Chr(13) & "mob: b b" & Chr(13) & "email: b"
       
        'aktivní (uložený) sešit jako příloha
        .Attachments.Add ActiveWorkbook.FullName
       
        'Nastavení preferovaného účtu pro odeslání pošty - v tomto případě druhý v pořadí
        'Dostupné od verze Office 2007
        .SendUsingAccount = OutApp.Session.Accounts.Item(1)

        'jiná příloha
        '.Attachments.Add ActiveWorkbook.Path & "\soubor.txt"
       
        'zobrazení okna se zprávou (není nutné)
        '.Display
       
        'odeslání zprávy
        .Send
       
    End With
     
    For i = 1 To colSyc.Count
        Set objSyc = colSyc.Item(i)
        objSyc.Start
    Next

    'OutApp.Quit
    MsgBox "Zpráva byla odeslána na adresu: " & adresat, vbInformation
    'uvolnění z paměti
    Set OutMail = Nothing
    Set objNsp = Nothing
    Set colSyc = Nothing
    Set objSyc = Nothing
    Set OutApp = Nothing
   
End Sub




Reklama
xlnc
Level 3.5
Level 3.5
Příspěvky: 859
Registrován: červenec 11
Pohlaví: Muž

Re: Úprava kódu pro odeslání emailu.

Příspěvekod xlnc » 01 zář 2018 20:39

Událostní procedura Workbook_BeforeClose.
Pokud vím, Thundebird nenabízí objektový model k dispozici, maximálně ještě CDO, když ne Outlook.
administrátor ProExcel.cz | lektor | vývojář | léčitel pro Microsoft Excel

luko02420
Level 1.5
Level 1.5
Příspěvky: 122
Registrován: únor 12
Pohlaví: Nespecifikováno

Re: Úprava kódu pro odeslání emailu.

Příspěvekod luko02420 » 02 zář 2018 12:12

Použil jsem tento kod, dotaz me naskocí ale kdyz odpovim ne, tak se mi sesit zavre. nevim co mam spatně.
Dík za pomoc.

Kód: Vybrat vše

Private Sub WorkBook_BeforeClose(Cancel As Boolean)
dotaz = "Odeslal jsi email?"
odpoved = MsgBox(dotaz, vbYesNo, "Ukončení práce...!")
If odpoved = vbNe Then Cancel = True
End Sub

xlnc
Level 3.5
Level 3.5
Příspěvky: 859
Registrován: červenec 11
Pohlaví: Muž

Re: Úprava kódu pro odeslání emailu.

Příspěvekod xlnc » 02 zář 2018 12:52

vbNo
administrátor ProExcel.cz | lektor | vývojář | léčitel pro Microsoft Excel

luko02420
Level 1.5
Level 1.5
Příspěvky: 122
Registrován: únor 12
Pohlaví: Nespecifikováno

Re: Úprava kódu pro odeslání emailu.

Příspěvekod luko02420 » 02 zář 2018 13:18

Děkuji
Jeste prosba, jak mam doplnit kod na odeslani emailu, aby mi treba do bunky D5 vlozil udaj kdy byl email odeslán.
Jeste jednou dekuji.

xlnc
Level 3.5
Level 3.5
Příspěvky: 859
Registrován: červenec 11
Pohlaví: Muž

Re: Úprava kódu pro odeslání emailu.

Příspěvekod xlnc » 03 zář 2018 12:04

Range("D5").Value=...

... Date, Now, něco...
administrátor ProExcel.cz | lektor | vývojář | léčitel pro Microsoft Excel

luko02420
Level 1.5
Level 1.5
Příspěvky: 122
Registrován: únor 12
Pohlaví: Nespecifikováno

Re: Úprava kódu pro odeslání emailu.  Vyřešeno

Příspěvekod luko02420 » 04 zář 2018 20:14

Děkuji


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Úprava kodu pro odeslání pdf.
    od luko02420 » 05 zář 2018 07:48 » v Kancelářské balíky
    6
    525
    od luko02420
    05 zář 2018 11:01
  • EXCEL 2010 - odeslání emailu z excelu s určitými buňkami
    od zlejKluk » 28 úno 2018 14:50 » v Kancelářské balíky
    3
    524
    od xlnc
    28 úno 2018 20:26
  • Obrázek v komentáři-úprava kódu
    od luko02420 » 12 dub 2018 10:33 » v Kancelářské balíky
    2
    530
    od luko02420
    13 dub 2018 18:46
  • úprava kódu pro hromadný hypertextový odkaz
    od luko02420 » 15 dub 2018 09:27 » v Kancelářské balíky
    2
    424
    od luko02420
    15 dub 2018 14:33
  • Nefunguje mi makro na odeslani listu z excelu
    od Snekment » 13 bře 2018 10:51 » v Kancelářské balíky
    2
    496
    od Snekment
    13 bře 2018 12:37

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 5 hostů