Ú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 2
Level 2
Příspěvky: 203
Registrován: únor 12
Pohlaví: Nespecifikováno
Stav:
Offline
Kontakt:

Ú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
guest
Pohlaví: Nespecifikováno

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

Příspěvekod guest » 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.

luko02420
Level 2
Level 2
Příspěvky: 203
Registrován: únor 12
Pohlaví: Nespecifikováno
Stav:
Offline
Kontakt:

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

guest
Pohlaví: Nespecifikováno

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

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

vbNo

luko02420
Level 2
Level 2
Příspěvky: 203
Registrován: únor 12
Pohlaví: Nespecifikováno
Stav:
Offline
Kontakt:

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.

guest
Pohlaví: Nespecifikováno

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

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

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

... Date, Now, něco...

luko02420
Level 2
Level 2
Příspěvky: 203
Registrován: únor 12
Pohlaví: Nespecifikováno
Stav:
Offline
Kontakt:

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
  • Odeslání peněz na paypal
    od Myerina » 28 dub 2023 20:19 » v Vše ostatní (sw)
    11
    1779
    od Myerina Zobrazit poslední příspěvek
    28 dub 2023 21:09
  • Odesílání emailu bez mého vědomí
    od trudy557 » 20 led 2024 19:16 » v Komunikace na internetu
    1
    1463
    od mmmartin Zobrazit poslední příspěvek
    20 led 2024 19:21
  • Wodpress úprava šablony
    od teichmann.ondrej » 26 zář 2023 15:45 » v Programování a tvorba webu
    6
    2129
    od teichmann.ondrej Zobrazit poslední příspěvek
    27 zář 2023 12:21
  • PrestaShop 1.7.7.4 - úprava blogu
    od Bublajs28 » 10 kvě 2023 10:59 » v Programování a tvorba webu
    2
    1753
    od lamin_cz Zobrazit poslední příspěvek
    13 kvě 2023 18:18
  • WIN7 nefunguje uprava jasu
    od Bary-Jan » 08 říj 2023 14:02 » v Windows 11, 10, 8...
    16
    5913
    od Bary-Jan Zobrazit poslední příspěvek
    08 lis 2023 09:53

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

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 4 hosti