Filename settings

When creating a pdf using Acrobat X on Mac Lion the file name which autumatically appears in the "save as..." window is for example:
"Microsoft Word - ABS prices.doc.pdf"
when creating files on our PCs we just get:
"ABS prices.pdf"
Is there a way to change the settings to not add the words "Microsoft Word" and the file extension to the pdf name.
I appreciate that you get the chance to edit the name before saving but when you create dozens od pdf's a day it becomes very tedious!

No but if your using the Adobe PDF from the Print menu > PDF > Adobe PDF.
You can rename it.
If it’s a small File. You can Drag and drop the file on to the Icon of Acrobat in the Dock.
You have to sit and twidle your thumbs for a few minutes. But it will be just the name with PDF. Then you save the file.

Similar Messages

Error in Constructor

So i mod GTA IV with c#
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.IO;
using System.Windows.Forms;
using System.Drawing;
using System.Diagnostics;
using System.Collections.Generic;
using GTA;
using GTA.Native;
namespace Beggar
public class ambBeggar : Script
bool tb = false;
bool bp = true;
Ped rped;
AnimationSet beggarsitting;
AnimationSet beggarstanding;
Keys begkey;
GTA.Timer gmoney;
public ambBeggar()
gmoney.Interval = 120000;
gmoney.Tick += gmoney_Tick;
begkey = Settings.GetValueKey("Beg", "Beggar Mod", Keys.B);
if(!File.Exists(Settings.Filename))
Settings.SetValue("Beg", "Beggar Mod", Keys.B);
this.Interval = 100000;
this.Tick += new EventHandler(ambBeggar_get);
this.ConsoleCommand += new ConsoleEventHandler(ambBeggar_ConsoleCommand);
public void ambBeggar_get(object sender, EventArgs e)
if(tb == true && !rped.Exists())
rped = World.GetClosestPed(Player.Character.Position, 30);
public void gmoney_Tick(object sender, EventArgs e)
if (rped.Exists())
rped.Task.GoTo(Player.Character.Position.Around(2));
Pickup.CreateMoneyPickup(rped.Position, 1000);
rped.NoLongerNeeded();
public void ambBeggar_ConsoleCommand(object sender, ConsoleEventArgs e)
if(e.Command == "t_beggar" && tb == false)
tb = true;
Function.Call("REQUEST_ANIMS", "amb@beg_sitting");
//Function.Call("REQUEST_ANIMS","amb@beg_standing");
if (Function.Call<bool>("HAVE_ANIMS_LOADED","amb@beg_standing") /*&& Function.Call<bool>("HAVE_ANIMS_LOADED","amb@beg_sitting")*/)
msg("Press" + begkey.ToString() + "To Beg", 5000);
beggarsitting = new AnimationSet("amb@beg_sitting");
//beggarstanding = new AnimationSet("amb@beg_standing");
Player.Character.Animation.Play(beggarsitting, "beggar_sit", 8, AnimationFlags.Unknown05);
while(tb == true)
beg_playing();
if(Game.isKeyPressed(begkey))
Player.Character.Task.ClearAllImmediately();
Player.Character.Task.PlayAnimation(beggarsitting, "beggar_beg", 8);
gmoney.Start();
while (bp == true) Wait(0);
Player.Character.Task.ClearAllImmediately();
Player.Character.Task.PlayAnimation(beggarsitting, "beggar_sit", 8,AnimationFlags.Unknown05);
if(Player.Character.isDead)
cleanup();
if(e.Command == "t_beggar" && tb == true)
cleanup();
public void msg(string sMsg, int time)
Function.Call("PRINT_STRING_WITH_LITERAL_STRING_NOW", new Parameter[] { "STRING", sMsg, time, 1 });
public void beg_playing()
if (GTA.Native.Function.Call<bool>("IS_CHAR_PLAYING_ANIM", Player.Character, "amb@beg_sitting", "beggar_beg") == false)
bp = false;
if (GTA.Native.Function.Call<bool>("IS_CHAR_PLAYING_ANIM", Player.Character, "amb@beg_sitting", "beggar_beg") == true)
bp = true;
public void cleanup()
tb = false;
gmoney.Stop();
Every time i run the game i get "Error in Constructor" and "Object reference not set to an instance of an object"

please verify
this.Interval = 100000;
Interval, member of the class or no ?
Mark as answer or vote as helpful if you find it useful | Ammar Zaied [MCP]

How to set a uniform display size of multiple intermedia image types - wher

I have read "If you want to limit the size of the file that can be uploaded, you can do this as a post generation
step, by adding the maxFileSize property to the <controller> element in the struts-config:
This does not address how to limit the *** display size *** where you have multiple intermedia image types - where the original size is not uniform.
If an image is uploaded where the true image display size is 1024 x 768 - it will display that way in the table/table-form. This will create un-even display size's where previous images sizes where different 384 x 384 and so on.
Is there a way to encode the display size so that *** ALL *** images regardless of their true size are displayed uniformly at least on one dimension (64 x ???)? This is possible when using products such as Dreamweaver or Flash.
BTW - JHS/***JDev*** synergy is truely magnificient!!! Way-To-Go Oracle!!!!!!!!!!! Keep it up!!!!
BG...

Bill,
I did some tests, and was able to reproduce it. The problem is that JHeadstart distinguishes between display types fileDownload and image, but UIX uses the same <media> tag to handle both display types. It will look at runtime whether it must render a hyperlink to download the document, or to render it right away as an image.
To get all images the same size, you can set the display width and height, AND the display type must be set to image.
However, to get the file name used as download link, you must set the FileName attribute AND the display type must be set to "fileDownload" ..
So, to solve your problem, it is easiest to set the displayType to "fileDownload" and set the width and height properties post-generation in the generated UIX page.
In the next release of Jheadstart, we will fix this, and always pick up width, height and fileName settings regardless of the display type.
Note that you should also set the FileName property against the attribute you are using to upload the file.
Steven Davelaar,
JHeadstart Team.

While Loop Freezes game

i am coding for GTA IV
the game freezes when i use this while loop
while (tb == true)
if (Game.isKeyPressed(begkey) && ip == false)
beg_playing();
Game.Console.Print(begkey.ToString() + " Pressed");
Game.Console.Print("Animation Cleared");
Player.Character.Task.ClearAllImmediately();
Player.Character.Task.PlayAnimation(beggarsitting, "beggar_beg", 8);
Game.Console.Print("beggar_beg anim played");
ip = true;
gmoney.Start();
while (bp == true) { Wait(100); }
gback();
return;
if (Player.Character.isDead)
cleanup();
Here is the full code
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.IO;
using System.Windows.Forms;
using System.Drawing;
using System.Diagnostics;
using System.Collections.Generic;
using GTA;
using GTA.Native;
namespace Beggar
public class ambBeggar : Script
bool tb = false;
bool bp = true;
bool ip = false;
Ped rped;
AnimationSet beggarsitting;
//AnimationSet beggarstanding;
Keys begkey;
GTA.Timer gmoney;
public ambBeggar()
gmoney = new GTA.Timer(120000);
gmoney.Tick += gmoney_Tick;
begkey = Settings.GetValueKey("Beg", "Beggar Mod", Keys.B);
if(!File.Exists(Settings.Filename))
Settings.SetValue("Beg", "Beggar Mod", Keys.B);
this.Interval = 100000;
this.Tick += new EventHandler(ambBeggar_get);
this.ConsoleCommand += new ConsoleEventHandler(ambBeggar_ConsoleCommand);
public void ambBeggar_get(object sender, EventArgs e)
if(tb == true && !rped.Exists())
rped = World.GetClosestPed(Player.Character.Position,20);
public void gmoney_Tick(object sender, EventArgs e)
if (rped.Exists())
rped.Task.GoTo(Player.Character.Position.Around(2));
Pickup.CreateMoneyPickup(rped.Position, 1000);
rped.NoLongerNeeded();
ip = false;
if(gmoney.isRunning)
gmoney.Stop();
public void ambBeggar_ConsoleCommand(object sender, ConsoleEventArgs e)
if (e.Command == "beggar_on")
tb = true;
Game.Console.Print("Beggar Mod By Mora Hannover");
Game.Console.Print("beggar mod toggled");
//Function.Call("REQUEST_ANIMS", "amb@beg_sitting");
Game.Console.Print("loading anim set amb@beg_sitting");
beggarsitting = new AnimationSet("amb@beg_sitting");
Wait(5000);
//Function.Call("REQUEST_ANIMS","amb@beg_standing");
// if (Function.Call<bool>("HAVE_ANIMS_LOADED", "amb@beg_sitting") && Function.Call<bool>("HAVE_ANIMS_LOADED","amb@beg_sitting"))
Game.Console.Print("amb@beg_sitting available");
msg("Press " + begkey.ToString() + " To Beg", 5000);
//beggarstanding = new AnimationSet("amb@beg_standing");
Player.Character.Animation.Play(beggarsitting, "beggar_sit", 8, AnimationFlags.Unknown05);
Game.Console.Print("beggar_sit anim played");
while (tb == true)
if (Game.isKeyPressed(begkey) && ip == false)
beg_playing();
Game.Console.Print(begkey.ToString() + " Pressed");
Game.Console.Print("Animation Cleared");
Player.Character.Task.ClearAllImmediately();
Player.Character.Task.PlayAnimation(beggarsitting, "beggar_beg", 8);
Game.Console.Print("beggar_beg anim played");
ip = true;
gmoney.Start();
while (bp == true) { Wait(100); }
gback();
return;
if (Player.Character.isDead)
cleanup();
if (e.Command == "beggar_off")
cleanup();
public void msg(string sMsg, int time)
Function.Call("PRINT_STRING_WITH_LITERAL_STRING_NOW", new Parameter[] { "STRING", sMsg, time, 1 });
public void beg_playing()
if (GTA.Native.Function.Call<bool>("IS_CHAR_PLAYING_ANIM", Player.Character, "amb@beg_sitting", "beggar_beg") == false)
bp = false;
if (GTA.Native.Function.Call<bool>("IS_CHAR_PLAYING_ANIM", Player.Character, "amb@beg_sitting", "beggar_beg") == true)
bp = true;
public void cleanup()
tb = false;
ip = false;
bp = false;
Game.Console.Print("beggar_mod off :'(");
Player.Character.Task.ClearAllImmediately();
if(gmoney.isRunning)
gmoney.Stop();
public void gback()
Player.Character.Task.ClearAllImmediately();
Player.Character.Task.PlayAnimation(beggarsitting, "beggar_sit", 8, AnimationFlags.Unknown05);
Game.Console.Print("beggar_sit anim played"); return;

Hello,
Have you tried to debug your code step by step? As it's very hard for others to reproduce your problem, I recommend that you firstly debug your code, find out which line causes the problem. And make sure that you don't cause infinit loop in your code, as
I can see from your code, if the variable "tb" or "bp" is always true, your code will go into an infinit loop. This will cause the freeze of the application.
while (tb == true)
if (Game.isKeyPressed(begkey) && ip == false)
beg_playing();
Game.Console.Print(begkey.ToString() + " Pressed");
Game.Console.Print("Animation Cleared");
Player.Character.Task.ClearAllImmediately();
Player.Character.Task.PlayAnimation(beggarsitting, "beggar_beg", 8);
Game.Console.Print("beggar_beg anim played");
ip = true;
gmoney.Start();
while (bp == true) { Wait(100); }
gback();
return;
if (Player.Character.isDead)
cleanup();
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.

Tethering in Lightroom with MK III - Can't keep original file names

Hello,
I am shooting a Canon Mark III to Lightroom 3.3 with RAW 6.3 on OS 10.5.8. All I want to do is insert custom text in front of the original file name from the camera. I cannot even seem to get Lightroom to allow the images to maintain the naming from the camera. The options "filename", "original file number" and "sequence" all rename the files in accordance with Lightroom preferences. I want to keep the naming from the camera and simply add custom text in addition to it. I would be pleased to even learn if Lightroom can accept the name from the camera as it does not seem able to do so. No matter what I select, input, or leave out, Lightroom seems to rename the file in some way or another.
The problem with most of the naming conventions in Lightroom is that the numbers seem to reset when the camera gets turned off. "Sequence" is the only setting that maintains a consistent and ascending count even if the camera is turned off then back on but it still doesn't reflect the camera settings which most photographers prefer to leave on continuous. While this affords a temporary solution, it does not fix the issue that we would prefer to see the original filename and number that the camera puts out. I have tested all the filename settings in Lightroom (including inputting nothing) and can't seem to get the actual original camera written filename to show up. PLEASE HELP!
It is hard to imagine that any software this powerful, especially from Adobe, could overlook and fail to execute something so crucial and basic as simply not overwriting the file info from the camera.
Thank you in advance for your help.
mb

Hello,
original file name is only stored in the lightroom catalog file. This means, the original filename is stored in your LR4 catalog! After you upgraded to LR5 you simply have to open the LR4 catalog and LR5 will convert the catalog into an LR5 catalog.
I hope, you still have an LR4 catalog backup (before you removed all images)? Otherwise original file name is lost.

Mediasource 5 Probl

Hey guys, i just bought a Zen Vison 30gb and upgraded both the player firmware and mediasource version 5.0.38. Basically i've got 2 questions
. Is there anyway to rearrange the tracks within a playlist. My old mediasource 3 was able to do this but unfortunately not the lastest version? is there a patch or alternati've method to solving this?
2. Secondly the music list takes forever to load. That is to say when i click on music, it takes a good minute before all the tracks are displayed. Once again i never had this problem with my zen nx on the old mediasource. Is there some way i can speed up the loading?
Thanks in advance
Cheers

Make sure you have used the folder/filename settings for the transferred files. More on this in the backup section of my Nomad Primer.

Save As - Settings and Filename Incrementer

Hello All,
I'm on CS5/CS6, i use a panel which i created in configurator. I have it run actions, menu items etc. All works great.
Problem:
I'm sick and tired of saving each open active image as JPG and incrementing the filename by 1. I'm hoping someone can point out to me on how to increment the filename number by 1, from a panel with a button called say - "Save As Increment"
So to play this out in a real world scenario....
1. Photoshop open.
2. Image file open and active.
3. I save the first file with name 'GeorgePortrait01.jpg' by clicking the save as button on my configurator panel and giving it the name manually.
4. > I want to now work on active/open image #2, when i'm done processing that, i'd like to click on my other button hypothetically called 'Save As Increment' which i just click and in the background it:
     A) Takes my settings specified in the script file for quality etc...
     B) Takes my folder location info also set in the script file
     C) Finds the latest incremented number in the folder and then increments by 1
     D) Saves it as GeorgePortrait02.jpg
So after the script modifications and the first file save, from then on after i'm done with each image, i only have to click the button 'Save As Increment' from that point on until i'm done with the set.
Is this possible? I'd like a vb script solution if possible. Any advice is hugely appreciated.
TIA!

You asked for vb which may put off most here… as you are open to altenatives… This I just C&P from Tom's Event Manager Script…
// Function: CreateUniqueFileName
// Usage: given a folder, file name and extenstion create a file with a unique
//        file name
// Input: given a folder, file name and extenstion
// Return: the full path to the unique file
function CreateUniqueFileName( inFolder, inFileName, inExtension ) {
          var uniqueFileName = inFolder + inFileName + inExtension;
          var fileNumber = 1;
          while ( File( uniqueFileName ).exists ) {
                    uniqueFileName = inFolder + inFileName + "_" + fileNumber + inExtension;
                    fileNumber++;
          return uniqueFileName;
Simple enough…

Global filename output settings?

re: http://livedocs.adobe.com/en_US/Illustrator/13.0/help.html?content=WSF0A59CAA-4274-48d4-B 168-00A8ADD95DA1.html
Is there any way to set this so that it is global? I have to save off hundreds of images with long filenames, and having to go in each and every time I save for web to change these settings seems absurd. Any help appreciated.

I have tried re-saving the default settings file (in both application data and program files) and the output settings file - so does saving a file marked as "Default Settings" not actually change the default settings? That also seems absurd.

Infospoke - How to single Logical Filename for all infospokes

Hello all,
I want to only have one logical path and logical filename for all of my infospokes.
For example if I have infospokes ZAAA, ZBBB, ZCCC, I want to have only one common setting in the destination properties of TC:RSBO but three different distinguishable files on my OS.
I think with the standard settings, I have to make one logical file for every infospoke I have.
I am aware that I can put <DATE> or <TIME> etc in the logical file settings but that will not distinguish which infospoke the file came from.
I want my file to look more like <INFOSPOKE>_<DATE><TIME>.csv
I've already seen the document "How to Extract Data with OPEN HUB to a Logical Filename" and this is not it because I have BW3.5 and 3.5 already does what this article says.
Any help would be greatly appreciated.
Just in case, I am on BW3.5 SP17 on Windows/SQL.

Jasprit,
Thanks for your input.
The functionality of the FM you said is similar to the InfoSpoke functionality...
Is it the same thing?
I wonder if I use this it means it is not part of the InfoSpoke license...
I will have our programer look at it and see what he thinks but in the mean time any other information is greatly appreciated. Especially if I can stick with using the standard InfoSpoke functionality...
Isn't this kind of functionality something that everyone wants?
I wonder why SAP didn't make it like this?

Mail receiver adapter: change filename of attachment to number in payload.

Dear experts,
I want to send out Purchase Orders from XI to a email address. The XI message containing the Purchase Order is sent as an attachment to a email to the supplier. However, the filename of the attachment needs to unique. Preferably the PO number which is in the file content.
Can anybody help me out with how to accomplish this?
My current settings are:
Transport protocol: SMTP
Message Protocol: XIPAYLOAD
Not using mail package
Keeping attachments.
Using: MessageTransformBean
Transform.ContentDisposition --> attachment;filename="testing.xml"
Please tell me how to dynamically change the "testing.xml" part!
Thanks in advance,
*will reward points if helpful

Thanks Prateek!
This is what I was looking for.
Can you please do me one more favour?
How to include this code in the module? I have been looking on help.sap.com but only found to be able to do this in PCK. Is this correct?
How can I use the code?
Thanks in advance.

Set default filename for file save dialog on Save button click

Hi,
I am using AxAcroPDF (version 9.0) control to view pdf files in windows forms (C#). The pdf loads into the viewer in the form. Now, when I click on the Save button in the viewer, a Save dialog pops up with a default filename having complete path info.
If I have loaded the pdf file into AxAcroPDF viewer with filename:
"C:\Documents and Settings\KB_Kravi\My Documents\CustomerList.pdf"
then in the save dialog, the default filename will be:
"C_Documents_and_Settings_KB_Kravi_My Documents_CustomerList.pdf"
Is there any option to set the default filename in the save dialog to some short name, instead of this lengthy name?
Thanks,
Ravi.

Hi,
I've found a solution.
public void Open(string filePath)
axAcroPDF.LoadFile(filePath);
//this will set the correct name in the save file dialog.
axAcroPDF.src = filePath;
Thanks for your help.
Freedon

Retaining original filename in FILE- SOAP- SOAP- FILE

We have faced a scenario where I have to retain original filename in File-> SOAP-> SOAP ->File. The issue is that we don't have any ESR objects and neither do we intend to create any. So its purely configuration to transfer file from one folder to another.
Any suggestion would be highly appreciated.
Thanks,
Swati

Hello Swati,
Even after trying the above steps suggested by Praveen, if you don't get the results use Dynamic Configurations module in the Receiver channel along with the above settings.
1) Make sure the above settings are done (given by Praveen)
2) Assign a new variable as the file name parameter under receiver channel configurations.
3) Assign the "message:interface_name" value to the variable under Variable Substitution
4)Under Module Tab do the following:
Let me know if you still face any further issue.
Regards,
Simran

Filename problems file containing ' , o

Ive been a creative owner now for many years and its issues with filenames has never really bothered me before, the problem im having is similar to some threads i've read on here but not quite the same so i've opened a new thread..
When i sync my playlists from pc library to the zen vision (also happend on micro) some files were not transfered, these files were mainly files that had " ' "? in there names most other files do transfer perfectly and do get sorted into there own folders on the player (unlike most messages i've read where people are having problems with all files going into the same folder, i've never had that problem) the problem i have is i listen to alot of foreign music and they tend to use " ' " in there filenames alot - rather than rename over 2000 tracks containging this character i would like a solution to?synchronizing these types of tracks...
My friend has a iPod (Boooo!! hehe) and the tracks do xfer to that but the creative is much better than the ipod so to avoid me having to buy an ipod just to resolve this issue somebody plz help!?thanks Paul....

Hi
Can you elaborate on what you did when you changed the
security settings -> This was fixed by changing the security
settings.
I think too that my problem has something to do with security
settings but I do not know for sure. I only know that my server
side script is never reached when trying to upload from a MAC
platform. I'm using a webhotel so I'm pretty limited in changing
the settings.
Any help will be greatly appreciated.
Have a look at my case:
http://www.adobe.com/cfusion/webforums/forum/messageview.cfm?catid=585&threadid=1311564

Photoshop Elements 8-Change of file format when saving deletes filename

I have been using Photoshop Elements 8 since last May and have always been irritated that when I add text to a photo it always defaults to PSD format for saving. I have gone to the preference options to see if I can set jpg as the default and it does not offer that option. This means that every time I save after adding text I have to manually select jpg to get the format to change.
Although this has been a pain, I have done it thousands of times as I have edited photos.
My problem is that suddenly from one day to the next when I change from PSD option to jpg the filename disappears and I have to go back and manually type in the whole filename. The only changes to my computer settings that I can think of that might have affected this is that Microsoft Updates had 2 updates. First was Definition for Windows Defender-KB915597 and the other was Unpdate for Windows 7 for x64 based systems-KB97690.
I saw a similar problem posted by sandwitch2 on Feb. 13th about PSE6. 99jon suggested the change to permissions of adding "everyone". I tried this and it did not correct the problem.
Any other suggestions are welcome.
I have found Adobe's insistance on saving as PSD irritating to say the least in the past. The inability to change this in preferences has made me very unhappy, but the quality of their product has outweighed the hoops they make me jump through until this. Their search feature in support is pretty much worthless. It either brings up nothing if you keyword is to limiting or brings up 200 responses if it if too broad.
I have been a user of Photoshop Elements for over 6 years updating as new editions have come out. I am to the point that if I can't get this current problem fixed I am uninstalling Elements 8 and going to another software. Adobe's proprietary requirements and poor support page are just too much of a pain to deal with.

I was told that if I save in PSD if I send the photos to share with others only those with Photoshop Elements can open the files. That is why I try to use jpg. Is that true?
Thanks for all the help from both of you,
Bettye

Exporting a crystal report as PDF and Attaching to an email via code - Filename Issuses?

Post Author: alynch
CA Forum: .NET
I need to export a crystal report as a pdf and send it out via email. I have created a subroutine that works but the attached filename come up as "untitled.txt" so the receiving machine believes it is a text file. If I rename it on the recipients machine to a ".pdf" I can open it with acrobat and it looks OK. Does anyone know how to rename the file as a pdf prior to sending it out?
Thank You.
al
I have included a copy of the subroutine:
Dim repdoc As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
Dim diskOpts As New CrystalDecisions.Shared.DiskFileDestinationOptions()
Dim ExpOpts As CrystalDecisions.Shared.ExportOptions
Dim MailOpts As New CrystalDecisions.Shared.MicrosoftMailDestinationOptions()
repdoc = Me.CrystalReport11
repdoc.Load("C:\Documents and Settings\User\My Documents\Visual Studio 2005\Projects\WindowsApplication3\WindowsApplication3\CrystalReport1.rpt")
ExpOpts = repdoc.ExportOptions
With ExpOpts
.ExportDestinationType = CrystalDecisions.[Shared].ExportDestinationType.MicrosoftMail
.ExportFormatType = CrystalDecisions.[Shared].ExportFormatType.PortableDocFormat
End With
With MailOpts
.MailMessage = "Message"
.MailToList = "enter email adress here"
.MailSubject = "Attached is a PDF file - .net Export test "
End With
ExpOpts.DestinationOptions = MailOpts
Try
repdoc.Export()
Catch err As Exception
MessageBox.Show(err.ToString())
End Try
End Sub

Post Author: Knight
CA Forum: .NET
I had this same problem today, here's what I used. Its built in 2 parts. Step one loops throught and exports PDF copies of a traking report. Step 2 builds an email list from a SQl query and sends it.STEP ONE:Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 'Declare the some variables Dim row1 As DataRow Dim brokerID As String Dim brokername As String Dim brokerEmail As String Dim shipdate As String Dim crParameterFieldDefinitions As ParameterFieldDefinitions Dim crParameterFieldDefinition As ParameterFieldDefinition Dim crParameterValues As New ParameterValues() Dim crParameterDiscreteValue As New ParameterDiscreteValue() Dim crParameterFieldDefinitions1 As ParameterFieldDefinitions Dim crParameterFieldDefinition1 As ParameterFieldDefinition Dim crParameterValues1 As New ParameterValues() Dim crParameterDiscreteValue1 As New ParameterDiscreteValue() Dim CrReport As New CrystalReport1() ' Report Name Dim report As ReportDocument = "O:KNIFormats_ReportPrivateSMStageShipmentInfo" Dim CrExportOptions As ExportOptions Dim CrDiskFileDestinationOptions As New DiskFileDestinationOptions() Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions() Dim SHIPDATE123 As String SHIPDATE123 = _month & "/" & _day & "/" & year Dim db As String db = System.Configuration.ConfigurationSettings.AppSettings("Datalogin") Dim sqlCon As New SqlConnection sqlCon.ConnectionString = db Dim strsql1 As String strsql1 = "SELECT tblSOOrd_Hdr.BrokerCd, tblSO_Ord_Hdr.BrokerName, tblSM_Ship_Hdr.ShipDate " strsql1 &= "FROM tblSO_Ord_Hdr INNER JOIN tblSM_Ship_Hdr ON tblSO_Ord_Hdr.Locale = tblSM_Ship_Hdr.Locale AND tblSO_Ord_Hdr.OrdNo = tblSM_Ship_Hdr.OrdNo AND " strsql1 &= " tblSO_Ord_Hdr.RlsNo = tblSM_Ship_Hdr.RlsNo INNER JOIN tblSys_Cust_Broker ON tblSO_Ord_Hdr.BrokerCd = tblSys_Cust_Broker.BrokerCd " strsql1 &= "GROUP BY tblSO_Ord_Hdr.BrokerCd, tblSM_Ship_Hdr.ShipDate, tblSO_Ord_Hdr.BrokerName " strsql1 &= "HAVING (tblSM_Ship_Hdr.ShipDate = '" & SHIPDATE123 & "') " Dim da1 As New SqlDataAdapter(strsql1, sqlCon) Dim worktbl1 As DataTable worktbl1 = New DataTable("tblEmail") da1.Fill(worktbl1) da1.FillSchema(worktbl1, SchemaType.Source) If worktbl1.Rows.Count > 0 Then For Each row1 In worktbl1.Rows brokerID = CStr(row1("BrokerCd")).Trim brokername = CStr(row1("BrokerName")).Trim shipdate = CStr(row1("ShipDate")).Trim CrReport.Load() crParameterDiscreteValue.Value = shipdate crParameterFieldDefinitions = CrReport.DataDefinition.ParameterFields crParameterFieldDefinition = crParameterFieldDefinitions.Item("ShipDate") crParameterValues = crParameterFieldDefinition.CurrentValues crParameterValues.Clear() crParameterValues.Add(crParameterDiscreteValue) crParameterFieldDefinition.ApplyCurrentValues(crParameterValues) crParameterDiscreteValue1.Value = brokerID crParameterFieldDefinitions1 = CrReport.DataDefinition.ParameterFields crParameterFieldDefinition1 = crParameterFieldDefinitions1.Item("Broker") crParameterValues1 = crParameterFieldDefinition1.CurrentValues crParameterValues1.Clear() crParameterValues1.Add(crParameterDiscreteValue1) crParameterFieldDefinition1.ApplyCurrentValues(crParameterValues1) CrDiskFileDestinationOptions.DiskFileName = "c:Test_Folder20" & _year & "-" & _month & "-" & day & "" & brokername & ".pdf" CrFormatTypeOptions.FirstPageNumber = 1 ' Start Page in the Report CrFormatTypeOptions.LastPageNumber = 1000 ' End Page in the Report CrFormatTypeOptions.UsePageRange = True CrExportOptions = CrReport.ExportOptions With CrExportOptions .ExportDestinationType = ExportDestinationType.DiskFile .ExportFormatType = ExportFormatType.PortableDocFormat .DestinationOptions = CrDiskFileDestinationOptions .FormatOptions = CrFormatTypeOptions End With Try CrReport.Export() Catch err As Exception MessageBox.Show("DID NOT EXPORT") End Try Next MessageBox.Show("All PDF's exported succesfully") End If End SubSTEP 2: Private Sub Button3Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim row2 As DataRow Dim SHIPDATE123 As String SHIPDATE123 = _month & "/" & _day & "/" & year Dim db1 As String db1 = System.Configuration.ConfigurationSettings.AppSettings("Datalogin") Dim sqlCon As New SqlConnection sqlCon.ConnectionString = db1 Dim strsql2 As String strsql2 = "SELECT tblSOOrd_Hdr.BrokerCd, tblSys_Cust_Broker.BrokerName, tblSM_Ship_Hdr.ShipDate, tblSys_Cust_Broker.ContactEmail " strsql2 &= "FROM tblSO_Ord_Hdr INNER JOIN tblSM_Ship_Hdr ON tblSO_Ord_Hdr.Locale = tblSM_Ship_Hdr.Locale AND tblSO_Ord_Hdr.OrdNo = tblSM_Ship_Hdr.OrdNo AND " strsql2 &= " tblSO_Ord_Hdr.RlsNo = tblSM_Ship_Hdr.RlsNo INNER JOIN tblSys_Cust_Broker ON tblSO_Ord_Hdr.BrokerCd = tblSys_Cust_Broker.BrokerCd " strsql2 &= "GROUP BY tblSO_Ord_Hdr.BrokerCd, tblSM_Ship_Hdr.ShipDate, tblSys_Cust_Broker.ContactEmail, tblSys_Cust_Broker.BrokerName, tblSys_Cust_Broker.Email_ASN " strsql2 &= "HAVING (tblSM_Ship_Hdr.ShipDate = '" & SHIPDATE123 & "') AND (tblSys_Cust_Broker.Email_ASN = 1) AND (tblSys_Cust_Broker.ContactEmail <> '') " Dim da1 As New SqlDataAdapter(strsql2, sqlCon) Dim worktbl2 As DataTable worktbl2 = New DataTable("tblEmail12") da1.Fill(worktbl2) da1.FillSchema(worktbl2, SchemaType.Source) Dim brokerID As String Dim brokername As String Dim brokerEmail As String Dim shipdate As String If worktbl2.Rows.Count > 0 Then For Each row2 In worktbl2.Rows brokerID = CStr(row2("BrokerCd")).Trim brokername = CStr(row2("BrokerName")).Trim brokerEmail = CStr(row2("ContactEmail")).Trim shipdate = CStr(row2("ShipDate")).Trim Dim mail As New MailMessage Dim att As String att = "c:Test_Folder20" & _year & "-" & _month & "-" & _day & "" & brokername & ".pdf" 'set the addresses mail.From = New MailAddress("[email protected]") mail.To.Add(brokerEmail) mail.Attachments.Add(New Attachment(att)) 'set the content mail.Subject = "Shipment Tracking report from Knox Nursery for " & SHIPDATE123 mail.IsBodyHtml = True mail.Body = "
" mail.Body &= "This shipment update has been requested by:
" 'send the message Dim smtp As New SmtpClient smtp.Send(mail) ' MessageBox.Show("No Records Found", "Failed to send", MessageBoxButtons.OK, MessageBoxIcon.Stop Next Else MessageBox.Show("No broker have opted in", "No Emails Sent", MessageBoxButtons.OK, MessageBoxIcon.Information) End If MessageBox.Show("Emails sent... ", "Emails Sent", MessageBoxButtons.OK, MessageBoxIcon.Information) End Sub

Filename settings

Similar Messages

Maybe you are looking for