Příspěvky uživatele
< návrat zpět
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"
Ahoj,
mám tabulku s úkoly.
Ve sloupci "P" zadám datum a do sloupce "S" bych potřeboval makrem zapsat "hotovo". Nelze to udělat vzorcem, protože ve sloupci "S" mám seznam (Ověření dat).
Nějaký makro jsem tam napsal, ale je nefunkční blbost. 
Děkuji za pomoc.
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články