Macro for sending reports by mail 1

[Gryson]

Hoi,

I want to spread reports in pdf format by mail.
I have created a macro that works on my PC but when I send the document to the BCA the macro seems to fail.

On the server, the same mail-program is installed.

Any suggestions or new macro's ?

 

[kau007]

whats the platform ur BCA running on ?

Broadcast agents on Unix are not supported to run any VBA scripts and macros.

 

[Gryson]

It is a windows Nt platform, I think, not Unix that I'm certain because simple scripts (deleting files, exporting as pdf,...) I can run.

 

[bcauser]

make sure the same profile is being used on the server(one on ur m/c)

 

[Fezbro]

Did you ever get this to work, and if so, how did you get around the log in PW prompt?

 

[typeslowly]

Don't know if this helps, but got this VBA from the BO helpdesk awhile ago... and it worked fine

Sub sendmail()
'This procedure allows you to attach a file
Dim Doc As Document
Dim Rep As Report
Dim i As Integer
Dim Send As String
Send = InputBox("Enter E-mail Address", "Send To&quot
Dim Subject As String
Subject = InputBox("Enter Subject", "Subject&quot
Dim Body As String
Body = InputBox("Enter Message to Client", "Client Message&quot

Set Doc = ActiveDocument
Doc.Refresh

For i = 1 To Doc.Reports.Count
Set Rep = Doc.Reports.Item(i)
Rep.ExportAsPDF ("C:\" & Rep.Name)
'Rep.ExportAsText ("C:\" & Rep.Name & ".txt&quot
Next i

Set OlkApp = CreateObject("Outlook.Application&quot
Set NewMail = OlkApp.CreateItem(olMailItem)
Set attachments = NewMail.attachments

For i = 1 To Doc.Reports.Count

attachments.Add ("C:\" & Rep.Name & ".pdf&quot
'attachments.Add ("C:\" & Rep.Name & ".txt" )
Next i

With NewMail
.To = Send
'.CC = &quot; mail@somewhere.com <mailto:mail@somewhere.com> &quot;
.Body = Body
.Subject = Subject
.Importance = 1
.Send
End With

End Sub

 

[JeffersonH]

you have to make sure that IIS/smtp is setup on your server correctly. it's really best to use cdonts for it rather than using an email client...more secure.

 

[prosix]

I created macro suggested by typeslowly and saved with this report, but how to run macro automatically once you open the document?
any idea?

 

[pabloj]

Set it to execute on open (from Visual Basic Editor) Stick to your guns

 

[prosix]

It may be funny to ask how to set it to execute on open, butI am gonna ask you, coz I am zero at VBA and macros.

Please gimme your advice.

TIA