< návrat zpět

MS Excel


Téma: PDF mail rss

Zaslal/a 21.10.2019 19:10

LugrDobrý 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?

Příloha: rar44751_email.rar (21kB, staženo 23x)
Zaslat odpověď >

#044760
avatar
islo by to cez kniznicu "Microsoft CDO for Windows 2000 Library"

hadam vam to tu niekto prepise do vasho makra :)

navod je tu:
https://stackoverflow.com/questions/41697695/how-to-send-e-mail-through-vba-without-outlookcitovat
#044770
Lugr
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 Subcitovat
#044772
avatar
https://proexcel.cz/jak-odeslat-e-mail-z-excelu/

Skoro dole.citovat
#044773
avatar
https://proexcel.cz/jak-odeslat-e-mail-z-excelu/

Skoro dole.citovat
#044776
Lugr
Bohužel z toho nejsem moudrý, ale děkuju.citovat
#044791
elninoslov
Napr. takto. Ak sa jedná o Gmail, treba mať v účte povolené "menej bezpečné aplikácie". Nastaviť si svoje údaje smtp serveru a heslo, a odosielateľa.
Příloha: zip44791_email_cdo.zip (23kB, staženo 23x)
citovat
#044805
Lugr
Děkujucitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09