Příspěvky uživatele

Děkuju

Bohužel z toho nejsem moudrý, ale děkuju.

Našel jsem toto. Je to pro gmail, ale nejsem z toho moudrý. Šlo by to nějak zbastlit dohromady?

https://www.launchexcel.com/sending-e-mails-from-gmail-and-outlook-using-excel-vba/#gmail

Sub SendGmail()

'creating a CDO object
Dim Mail As CDO.Message
Set Mail = New CDO.Message

'Enable SSL Authentication
Mail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

'Make SMTP authentication Enabled=true (1)
Mail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

'Set the SMTP server and port Details
'Get these details from the Settings Page of your Gmail Account
Mail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"smtp.gmail.com"
Mail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Mail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Set your credentials of your Gmail Account
Mail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = _
"username@gmail.com"
Mail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = _
"*********"

'Update the configuration fields
Mail.Configuration.Fields.Update

'Set All Email Properties
With Mail
.Subject = "Write subject here"
.From = "username@gmail.com"
.To = "user1@gmail.com;user4@gmail.com"
.CC = "user2@gmail.com"
.BCC = "user3@gmail.com"
.textbody = "write your mail here"
.AddAttachment ("Folder Address") 'To attach Documents in mail
End With
'to send the mail
Mail.Send

End Sub

Dobrý den,

mám makro které vytvoří PDF a odešle jej mailem. Vše funguje dokonale. Odesílá přes aplikaci Outlook. Problém je, že v práci nyní Outlook nainstalovaný nemáme a mít nebudeme. Šlo by nastavit makro tak, aby odesílal přes online Outlook tedy přes Outlook.com?

Paráda, děkuju

No jo, já si trubka otevřel ten předchozí.

To je ono.

Moc děkuji a omlouvám se, že jsem tak otravoval.

Aha, už to chápu. Všechny předchozí buňky musí byt vyplněny.

Šlo by to bez MsgBoxu a bez toho aniž bych musel vyplnit předchozí buňky?

Začínám si myslet, že jsem retardovanej, ale mě né.

Co mám z makra smazat?

Jen vyskočí MsgBox s číslem řádku.

Ono to ale nefunguje.

Ano makro se spustí, když bude zapsán datum. Např. Do buňky P12 napíši dnešní datum, tak v buňce S12 se automaticky zobrazí "hotovo" bez ohledu na to jestli před tím bylo v buňce S12 "zastaveno" nebo ne. Pokud v Buňce P12 nic nebude, tak nic nedělat. Pokud to tak jde. Děkuji

Bohužel nešlo. Kdyby to šlo vyřešit vzorcem když tak vás neotravuji. Nicméně pokud je úkol hotov, tak už není potřeba zastaveno. Vím že jsem otravnej.

Omlouvám se jestli to neumím vysvětlit, ale myslím, že by to makro mohlo zhládnout i přesto, že v buňce je ověření dat, když seznam obsahuje slovo "hotovo".

Je to seznam úkolů. Pokud úkol není splněn nebo je pozastaven ručně si vyberu ze seznamu např. zastaveno. Ve chvíli kdy je úkol splněn, dotyčný zapíše datum kdy byl úkol splněn a já bych potřeboval aby se v dané buňce objevilo automaticky "hotovo".

Funkci KDYŽ nemohu použít, když mám v buňce ověření dat.

Ale chtěl bych tento problém vyřešit makrem.

Aby po doplnění datumu vypsal do buňky "hotovo"

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje