As a variant I think to send only links to these documents.
Documents stored in a cloudstorage but links stored in my database. Any idea how to realize it ?
After jforbes advice I've changed my code as follows :
Code:
objMessage.HTMLBody
CostasM
Last Activity: Oct 17 '18, 10:19 AM
Joined: Oct 22 '12
Location:
-
zmbd, thanks for reply, I know, some times it can be considered us spam, because of hidden URL links, but in my work I need to send a 10-15 attached files (documents) abt 5Mb total.
As a variant I think to send only links to these documents.
Documents stored in a cloudstorage but links stored in my database. Any idea how to realize it ?
After jforbes advice I've changed my code as follows :
... -
Thanks, jforbes,
I've changed the code as per your proposal, but now get the line
as below
<a href="">http://DomainName.com/Contract.pdf</a>
in plain text format, not clickableLeave a comment:
-
How to send hidden web-link by e-mail via MS Access
In my Access database I have a table with 2 fields: DOCNAME (Text) and WEBLINK (Hyperlink).
I have a VBA code for sending any data from this table by e-mail using CDO.Message function.
I can send web-links from WEBLINK field, but I need to hide it and instead the actual link to send the data from DOCNAME field.
For example, I fill the DOCNAME as “Contract” and WEBLINK as “http: //DomainName.com/Contract.pdf”... -
How to calculate days between two different dates & times
I need to get difference between two dates with time in days using usual query.
See picture for details :...Last edited by zmbd; Apr 4 '13, 05:50 PM. Reason: [Z{Please keep in mind that we can not usually see attacments from outside sources}] -
NeoPa,
Thanks a lot, I moved the 11 line inside the loop, now it works!
I was need to get clear answer so I tried to ask clear question ;)Leave a comment:
-
How to attach several files to e-mail message (objMessage.AddAttachment)
I want to send several files attached to one e-mail message using MS Access 2007 (CDO.Message).
I have query where all files are listed and all file's pathes stored in a separate cell as Hyperlinks.
Here is below image which shows what I need:
[IMGnothumb]https://dl.dropbox.com/u/37289693/attach%20severa l%20files.jpg[/IMGnothumb]
and VBA code which I use:
...Code:Private Sub btn4Pay_Click() On Error GoTo
-
To NeoPa
Great, Now it works ! Correct line wich I need is
Thanks again. We can consider this thread closed, but 2 other questions have arisen from this :Code:Call objMessage.AddAttachment("C:\Documents\" & Split(sFilePath, "#")(0))
** Extra questions removed as per site rules. See following post from NeoPa. **Leave a comment:
-
toNeoPa
Thanks, now I check it in Immediate window and get sFilePath=Folde r1\testfile.txt #Folder1\testfi le.txt
Can you clarify again how to use Split() function to get value from Hyperlink formatted string. I can add manualy "C:\Documen ts\" before and then to bound it with "sFilePath" , but how to exclude all data after #-sign. It seems that it is 3rd element of Hyperlink filed.
Also original line was - objMessage.AddA ttachment...Leave a comment:
-
Sorry, I've mistaked in my last post, when I run VBA code I get only "#Folder1\testf ile.txt#" without C:\DOCUMENTS\. In order to see full path I had to enter it manualy to Hyperlink field, but it is extra work, usually I use traditional window Hyperlink/Edit or F4 and see only the relative link to the file - Folder1\testfil e.txt
Using Split() and Replace() functions I will get requested value, but for the case when I typed...Leave a comment:
-
to NeoPa
Thanks, but I don't need to send a link by e-mail, I need to send attached file, wich has a full path - C:\DOCUMENTS\Fo lder1\testfile. txt and this path stored in a table. I have table with 2 columns: "DocName" and "DocLink" where DocLink in Hyperlink format.
When I use
it works, but when I get this path from query(recordset ) I see...Code:objMessage.AddAttachment "C:\DOCUMENTS\Folder1\testfile.txt"
Leave a comment:
-
When I add the hyperlink in table I see it as "Folder1\testfi le.txt",
using VBA code Trim(rst(8)) I get it as
"#Folder1\testf ile.txt#",
but actual path is C:\DOCUMENTS\Fo lder1\testfile. txt
It seems that I get this link with Hyperlink properties.
I need only full path (absolute) without #-signs and any other info.
My base is located in C:\DOCUMENTSLeave a comment:
-
How to change relative hyperlink to absolute hyperlink in VBA
I want to send several attached files from MS Access using CDO.Message.
When I use "objMessage.Add Attachment" I need to indicate full path to the file, but all hyperlinks to files stored in separate column of my query (recordset) but as relative links only. How to change it to absolute hyperlinks?
Full code as below:
...Code:Private Sub btn4Pay_Click() On Error GoTo btn4Pay_Click_Error Dim rst
-
Great! Thanks to all persons involved, especially to TheSmileyCoder. Now it works, I can send 1-500 messages with many records inside by clicking only one button, but faced with another problem:
-after sending numerous messages by this automatical way my SMTP provider blocked my IP address by SPAM-filter and IP address was also reputated in barracudacentra l.org as "poor"
Any ideas to solve ?Leave a comment:
-
@TheSmileyCoder
After adding this line
between lines 24 and 25Code:If rst.Eof Then Exit Do
folowing problems are solved:
- "last record in recordset has not been sent" - ОК,
- "I have Error 3021" - no this error appeared,
but again we still have
- each record was sent in separate message, instead of to be sent together in one message.
...Leave a comment:
-
@TheSmileyCoder
I think now picture is visible which I posted in my previous post. As to last code, I posted it also in my separate post, but it was deleted by moderator as duplicated.
Now I can send all records from recordset but only to one e-mail address, specified in "objMessage .To"
I need to send e-mails to different Companies, and every Company should receive only records where her address is corresponded....Leave a comment:
-
@TheSmileyCoder
Many thanks for assistance, some part of code changed as per your recomendation but not work in proper way.
You was right, my query includes "e-mail" field, but only for sending e-mail messages. All data stored in separate tables which are normalized.
For the best understanding I have posted new post "How to create/send e-mail using data from ADODB.Recordset " with a picture what we...Leave a comment:
-
@TheSmileyCoder
Great! Now it works, I can send ALL records from recordset, to e-mail address, specified in "objMessage.To" ,
But How to send only few records, where e-mail address is the same. In my previous post I tried to explain what I really need.
To open additional recordset with a filter for e-mail addresses or to loop "objMessage .To" line ?
I need to group all records by the Recepient...Leave a comment:
-
Rabbit, thanks, I tried but unsuccesfully. The source for my recordset is usual Access query, where I have:
1) e-mail address of Customer in order to send message
2) some fields with info for Customer to send
Now I reached composing of separate e-mail message for each RECORD, but I need separate message for each CUSTOMER with all records, where his e-mail address is the same.
like this:
...Code:objMessage.To = "receivermail@gmail.com"
Leave a comment:
-
How to get all records to .TextBody line from ADODB.Recordset /CDO.Message
It is necessary to send e-mail from Access 2007 using CDO.Message
and in the TextBody get/add all results/records of recordset
Part of the code as follows:
...Code:Private Sub btn1_SendDA_Click() On Error GoTo btn1_SendDA_Click_Error Dim Rst As ADODB.Recordset Dim strSQL As String Set Rst = New ADODB.Recordset strSQL = "select
No activity results to display
Leave a comment: