Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - makro które wysyła plik

ddukee · Starszy Forumowicz Posty: 33

hej
chciałbym sobie ułatwic troche prace :P
Potrzebował bym makra które by zmieniało nazwę pliku na znaki z 3 komórek(a1;a2;a3)
i wysyłało mailem na adres przykład@przykład.pl ,powiedzmy że plik znajduje sie na dysku c: i nazywa sie 1.pdf
pozdrawiam

[ Dodano: 2012-02-06, 12:14 ]
oczywiście korzystam z outlooka

negatyv · Wysłany: 2012-02-07, 11:46

Tu masz kod, który wysyła mejla:

Kod:

Dim MessageText As String
Dim objMessage As Object
Dim HtmlText As String

MessageText = "Potwierdzenie przyjęcia awizacji "

HtmlText = "<html>"
HtmlText = HtmlText & "<body>"
HtmlText = "Potwierdzenie przyjęcia awizacji "
HtmlText = HtmlText & "</body>"
HtmlText = HtmlText & "</html>"

Set objMessage = CreateObject("CDO.Message")
objMessage.BodyPart.Charset = "utf-8"
objMessage.Subject = "Potwierdzenie przyjęcia awizacji "
objMessage.FROM = "biuro@xxx.pl"
objMessage.To = "Odbiorca@klient.pl"
objMessage.TextBody = MessageText
objMessage.htmlbody = HtmlText

'dodanie zalacznika -usun, jezeli nie jest potrzebne
objMessage.addattachment "m:\awizo.pdf" ', "awizo.pdf"

objMessage.attachments(1).Fields("urn:schemas:mailheader:content-disposition") = "attachment; filename=""awizo.pdf"""
objMessage.attachments(1).Fields.Update

'Konfiguracja SMTP

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "poczta.xxxx.pl"

'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 2

'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "user"

'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "pass"

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

objMessage.Configuration.Fields.Update

'koniec konfiguracji smtp i wysylka
objMessage.Send

A ten zmienia nazwę:

Kod:

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile "c:\1.pdf", "c:\" & Range("A1") & Range("B1") & Range("C1") & ".pdf"
Set fso = Nothing

[ Dodano: 2012-02-07, 11:47 ]
Cała dyskusja o wysyłaniu mejla:

http://www.excelforum.pl/...ila-vt27193.htm