ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   mail different files to different persons .to .cc (https://www.excelbanter.com/excel-programming/414665-mail-different-files-different-persons-cc.html)

Eddy Stan

mail different files to different persons .to .cc
 
Hi
I have an excel with data in sheet1 from row 5 thro' 60 (row4 is title)
column a: Names (dear),
column b: mail ids of .to,
column c: mail ids of .cc,
column d: Subject,
column e: Short body message1 (para1)
column f: Short body message2 (para2)
column g: Short body message3 (para3)
column h: 101.xls,
column i: 221.xls,
column j: 323.xls,
column k: 525.xls (maximum 4 files to be attached)
data is down up to row 60
last row has "LLINE" in cell a61
i have kept all 240 files (files names in numbers) in one folder, where i
have this master file also
Is it possible to send automail from outlook (like customised mails)
please help me. thanks in advance.
Every week i have send this to same people with different excel files (and
messages)

regards
Eddy stan

Ron de Bruin

mail different files to different persons .to .cc
 
Hi Eddy

See this example
http://www.rondebruin.nl/mail/folder2/files.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Eddy Stan" wrote in message ...
Hi
I have an excel with data in sheet1 from row 5 thro' 60 (row4 is title)
column a: Names (dear),
column b: mail ids of .to,
column c: mail ids of .cc,
column d: Subject,
column e: Short body message1 (para1)
column f: Short body message2 (para2)
column g: Short body message3 (para3)
column h: 101.xls,
column i: 221.xls,
column j: 323.xls,
column k: 525.xls (maximum 4 files to be attached)
data is down up to row 60
last row has "LLINE" in cell a61
i have kept all 240 files (files names in numbers) in one folder, where i
have this master file also
Is it possible to send automail from outlook (like customised mails)
please help me. thanks in advance.
Every week i have send this to same people with different excel files (and
messages)

regards
Eddy stan


Eddy Stan

mail different files to different persons .to .cc
 
Hi Ron,

i worked based on my previous help.

But one problem i have. I am required to give full path of file

Is it possible to store default directory; so that i can input file name
alone in the specific cell range

i tryed to put path as below:

Dim MyPath As String
Dim SaveDriveDir As String

SaveDriveDir = CurDir
MyPath = "E:\ALLDATA\AGEING\DSO LETTER FOLLOW UP"
ChDrive MyPath
ChDir MyPath

error came at .attachments.add filecel.value, in the following codelines

For Each FileCell In rng.SpecialCells(xlCellTypeConstants)
If Trim(FileCell) < "" Then
If Dir(FileCell.Value) < "" Then
.Attachments.Add FileCell.Value
End If
End If
Next FileCell

can you please help.


"Ron de Bruin" wrote:

Hi Eddy

See this example
http://www.rondebruin.nl/mail/folder2/files.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Eddy Stan" wrote in message ...
Hi
I have an excel with data in sheet1 from row 5 thro' 60 (row4 is title)
column a: Names (dear),
column b: mail ids of .to,
column c: mail ids of .cc,
column d: Subject,
column e: Short body message1 (para1)
column f: Short body message2 (para2)
column g: Short body message3 (para3)
column h: 101.xls,
column i: 221.xls,
column j: 323.xls,
column k: 525.xls (maximum 4 files to be attached)
data is down up to row 60
last row has "LLINE" in cell a61
i have kept all 240 files (files names in numbers) in one folder, where i
have this master file also
Is it possible to send automail from outlook (like customised mails)
please help me. thanks in advance.
Every week i have send this to same people with different excel files (and
messages)

regards
Eddy stan



Eddy Stan

mail different files to different persons .to .cc
 
Hi Ron,
Further one more thing.
I am using outlook.
is there anyway to overide - prompting for every mail and mails go
continuously till the end of row in the range. without involving my IT guys
re-configuring my mail system.
Like switch off protection and switch on after this macro running.
thanks.
Eddy stan

"Ron de Bruin" wrote:

Hi Eddy

See this example
http://www.rondebruin.nl/mail/folder2/files.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Eddy Stan" wrote in message ...
Hi
I have an excel with data in sheet1 from row 5 thro' 60 (row4 is title)
column a: Names (dear),
column b: mail ids of .to,
column c: mail ids of .cc,
column d: Subject,
column e: Short body message1 (para1)
column f: Short body message2 (para2)
column g: Short body message3 (para3)
column h: 101.xls,
column i: 221.xls,
column j: 323.xls,
column k: 525.xls (maximum 4 files to be attached)
data is down up to row 60
last row has "LLINE" in cell a61
i have kept all 240 files (files names in numbers) in one folder, where i
have this master file also
Is it possible to send automail from outlook (like customised mails)
please help me. thanks in advance.
Every week i have send this to same people with different excel files (and
messages)

regards
Eddy stan



Ron de Bruin

mail different files to different persons .to .cc
 
Hi Eddy

Use this then

MyPath = "E:\ALLDATA\AGEING\DSO LETTER FOLLOW UP"

For Each FileCell In Rng.SpecialCells(xlCellTypeConstants)
If Trim(FileCell) < "" Then
If Dir(MyPath & "\" & FileCell.Value) < "" Then
.Attachments.Add MyPath & "\" & FileCell.Value
End If
End If
Next FileCell




--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Eddy Stan" wrote in message ...
Hi Ron,

i worked based on my previous help.

But one problem i have. I am required to give full path of file

Is it possible to store default directory; so that i can input file name
alone in the specific cell range

i tryed to put path as below:

Dim MyPath As String
Dim SaveDriveDir As String

SaveDriveDir = CurDir
MyPath = "E:\ALLDATA\AGEING\DSO LETTER FOLLOW UP"
ChDrive MyPath
ChDir MyPath

error came at .attachments.add filecel.value, in the following codelines

For Each FileCell In rng.SpecialCells(xlCellTypeConstants)
If Trim(FileCell) < "" Then
If Dir(FileCell.Value) < "" Then
.Attachments.Add FileCell.Value
End If
End If
Next FileCell

can you please help.


"Ron de Bruin" wrote:

Hi Eddy

See this example
http://www.rondebruin.nl/mail/folder2/files.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Eddy Stan" wrote in message ...
Hi
I have an excel with data in sheet1 from row 5 thro' 60 (row4 is title)
column a: Names (dear),
column b: mail ids of .to,
column c: mail ids of .cc,
column d: Subject,
column e: Short body message1 (para1)
column f: Short body message2 (para2)
column g: Short body message3 (para3)
column h: 101.xls,
column i: 221.xls,
column j: 323.xls,
column k: 525.xls (maximum 4 files to be attached)
data is down up to row 60
last row has "LLINE" in cell a61
i have kept all 240 files (files names in numbers) in one folder, where i
have this master file also
Is it possible to send automail from outlook (like customised mails)
please help me. thanks in advance.
Every week i have send this to same people with different excel files (and
messages)

regards
Eddy stan



Ron de Bruin

mail different files to different persons .to .cc
 
Hi Eddy

See
http://www.rondebruin.nl/mail/prevent.htm


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Eddy Stan" wrote in message ...
Hi Ron,
Further one more thing.
I am using outlook.
is there anyway to overide - prompting for every mail and mails go
continuously till the end of row in the range. without involving my IT guys
re-configuring my mail system.
Like switch off protection and switch on after this macro running.
thanks.
Eddy stan

"Ron de Bruin" wrote:

Hi Eddy

See this example
http://www.rondebruin.nl/mail/folder2/files.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Eddy Stan" wrote in message ...
Hi
I have an excel with data in sheet1 from row 5 thro' 60 (row4 is title)
column a: Names (dear),
column b: mail ids of .to,
column c: mail ids of .cc,
column d: Subject,
column e: Short body message1 (para1)
column f: Short body message2 (para2)
column g: Short body message3 (para3)
column h: 101.xls,
column i: 221.xls,
column j: 323.xls,
column k: 525.xls (maximum 4 files to be attached)
data is down up to row 60
last row has "LLINE" in cell a61
i have kept all 240 files (files names in numbers) in one folder, where i
have this master file also
Is it possible to send automail from outlook (like customised mails)
please help me. thanks in advance.
Every week i have send this to same people with different excel files (and
messages)

regards
Eddy stan




All times are GMT +1. The time now is 04:11 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com