MS Excel

Téma: makro SendByEmail FROM

Zaslal/a Leona 22.11.2010 11:47

Ahoj,

prosim o radu - potrebovala bych posilat emaily makre s tim, ze si v tom makru urcim, z jakeho uctu se ma email odeslat.

Pouzivam normalne proceduru:

Sub SendByEmail()

Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With OutMail
.To = ""
.CC = ""
.To = ""
.BCC = ""
.Subject = ActiveWorkbook.Name
.Body = ""
.Attachments.Add ActiveWorkbook.FullName
.Display
End With

Set OutMail = Nothing
Set OutApp = Nothing

End Sub

Ale bohuzel do teto metody nejde zadat jednoduse parametr
.From (coz jsem myslela, ze pujde v pohode:))

Predem dekuji

Zaslat odpověď >

RomanNTA(22.11.2010 12:57)#003278

Ahoj.

Máš pravdu ... From tam nenajdeš.
OutApp má pod sebou Session což je typ NameSpace.

OutApp.GetNameSpace("MAPI") může být jeden výsledek
OutApp.GetItemFromID(???) může být druhý výsledek

V podstatě musíš znát jméno pro Session nebo NameSpace. To pak představuje účet který požaduješ nastavit a až nakonec z nastaveného objektu volat Set OutMail = OutApp.CreateItem(0)

To je úvaha, nemám to jak vyzkoušet, když tak pardon ... budeš muset sama zkusit.
R.citovat

eliasex(11.7.2011 9:54)#005468

Sub CDO_Mail_Small_Text()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
' Dim Flds As Variant

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

' iConf.Load -1 ' CDO Source Defaults
' Set Flds = iConf.Fields
' With Flds
' .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
' = "Fill in your SMTP server here"
' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' .Update
' End With

strbody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"

With iMsg
Set .Configuration = iConf
.To = "ron@debruin.nl"
.CC = ""
.BCC = ""
.From = """Ron"" <ron@something.nl>"
.Subject = "New figures"
.TextBody = strbody
.Send
End With

End Subcitovat

Téma: makro SendByEmail FROM

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje