|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
30.12.2013, 17:35 | #1 |
Форумчанин
Регистрация: 05.01.2009
Сообщений: 242
|
Отправка файла на e-mail
Всем привет!
Реализовал чтобы программа отправляла файл на почтовый ящик, но не могу решить проблему, надо чтобы программа отправляла файл с ситемного диска, с документов пользователя. Код:
Код:
Как сделать так чтобы программа отправляла файл с директории: c:\Users\ИМЯ КОМПЬЮТЕРА\AppData\Roaming\anket в которой и находится файл анкеты с расширением *.txt так как у всех имя компьютера отличается, как сделать так, чтобы программа отправляла файл с такого пути? Что-то типа %username% вместо имени компьютера. Помогите реализовать. |
30.12.2013, 17:46 | #2 |
Участник клуба
Регистрация: 09.11.2007
Сообщений: 1,759
|
Во первых там не имя копма, а имя пользователя, а чтобы узнать пользовательскую директорию можно использовать например эту функцию
Код:
|
30.12.2013, 17:59 | #3 | |
Форумчанин
Регистрация: 05.01.2009
Сообщений: 242
|
Цитата:
|
|
30.12.2013, 18:04 | #4 |
Заблокирован
Регистрация: 31.03.2011
Сообщений: 976
|
IdAttachment1:=TIdAttachment.Create (IdMessage1.MessageParts, GetUserAppDataDir + 'AppData\Roaming\anket\anketa.txt') ;
|
30.12.2013, 18:16 | #5 |
Форумчанин
Регистрация: 05.01.2009
Сообщений: 242
|
Ругается тут:
begin SHGetFolderPath [Error] Unit1.pas(40): Undeclared identifier: 'SHGetFolderPath' Где-то прописать еще что-то нужно? |
30.12.2013, 18:25 | #6 |
Старожил
Регистрация: 17.11.2010
Сообщений: 19,042
|
В uses SHFolder
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
30.12.2013, 18:35 | #7 |
Форумчанин
Регистрация: 05.01.2009
Сообщений: 242
|
Идёт дальше и снова также ругается на GetUserApp, что для него прописывать?
пробовал Registry, не помогает, нашел что Registry для GetUserApp. Последний раз редактировалось Stilet; 30.12.2013 в 20:44. |
30.12.2013, 18:53 | #8 |
Заблокирован
Регистрация: 31.03.2011
Сообщений: 976
|
На функцию посмотри внимательно. Где ты там увидел GetUserApp? Функция именуется как GetUserAppDataDir. И что значит ругается? На приблизительную проблему, жди такой же приблизительный ответ, или излагай грамотно. Экстрасенсы в отпуске, в честь нового года.
|
30.12.2013, 19:15 | #9 |
Форумчанин
Регистрация: 16.03.2013
Сообщений: 599
|
Хм. А Дельфи не понимает пути вроде "%appdata%" ?
Код:
alextrof94$gmail.com
Последний раз редактировалось alextrof94; 30.12.2013 в 19:18. |
30.12.2013, 19:20 | #10 |
Заблокирован
Регистрация: 31.03.2011
Сообщений: 976
|
Все что в кавычках, это обычный текст, и ни как иначе.
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Отправка на e-mail | romanzi | Работа с сетью в Delphi | 18 | 08.03.2014 14:09 |
создание файла по шаблону и отправка по e-mail | s_Putnik | Microsoft Office Excel | 1 | 20.02.2011 10:23 |
e-mail отправка | romanzi | Работа с сетью в Delphi | 1 | 20.11.2010 21:10 |