Søg
Avatar billede monie Nybegynder
07. april 2004 - 14:36 Der er 13 kommentarer og
1 løsning

Ønsker Dato og brugernavn indsat i E-mail

Hej

Jeg forsøger, at indsætte dato,månede,år og brugerens/den besøgendes navn, herunder i koderne.

Memo1.Lines.Text:= '<a href="kontakt.htm" title="<MusOverTekst>"
target="hojere" onmouseover="this.href=''mailto:<Mail>&#64;
<Domain>.<Top>?subject=<Subject>
&body=<Dag-måned-år><SignaturTekst><UserName>''"><LinkTekst></a>';

Hvordan får jeg <Dag-måned-år> i ovenstående &body til at virke,
med eller uden "<>" med nedstådende koder:

Dag, måned, dato, år  <BODY>:

<script language="JavaScript">
<!--
function date(skriv){
document.write(skriv);
}
var iDag=new Date();
var ugedag=iDag.getDay();
var dato=iDag.getDate();
var maaned=iDag.getMonth()+1;
var aar=iDag.getFullYear();
if(ugedag=="0")D="Søndag";
if(ugedag=="1")D="Mandag";
if(ugedag=="2")D="Tirsdag";
if(ugedag=="3")D="Onsdag";
if(ugedag=="4")D="Torsdag";
if(ugedag=="5")D="Fredag";
if(ugedag=="6")D="Lørdag";
if(maaned=="1")M="Januar";
if(maaned=="2")M="Februar";
if(maaned=="3")M="Marts";
if(maaned=="4")M="April";
if(maaned=="5")M="Maj";
if(maaned=="6")M="Juni";
if(maaned=="7")M="Juli";
if(maaned=="8")M="August";
if(maaned=="9")M="September";
if(maaned=="10")M="Oktober";
if(maaned=="11")M="November";
if(maaned=="12")M="December";
var B=D+" d. "+dato+" "+M+" "+aar;
//Helligdage indsættes her.
if(maaned=="6" && dato=="5")B=B+" - Grundlovsdag";
if(maaned=="11" && dato=="8")B=B+" - Morten Bisp";
if(maaned=="12" && dato=="24")B=B+" - Juleaften";
if(maaned=="12" && dato=="25")B=B+" - 1. Juledag";
if(maaned=="12" && dato=="26")B=B+" - 2. Juledag";
if(maaned=="12" && dato=="31")B=B+" - Nytårsaften";
date(B);
// -->
</script>

Og hvordan kaldes og indsættes brugerens navn i koden <SignaturTekst>, med eller uden "<>".

Alså brugerens computer!
Lige som jeg illustrere herunder:

Med venlig hilsen
<UserName>

Har du en løsning?
------------------------------------

Med venlig hilsen
Monie Jacobsen
Avatar billede doc404 Novice
07. april 2004 - 23:39 #1
var
  s : string;
...
  s := '... hele din html tekst ';
  s := AnsiReplaceText('<UserName','Bart Simpson');
  Memo.Lines.Text := s;

Er det noget lignende du ønsker?
Avatar billede monie Nybegynder
08. april 2004 - 09:36 #2
Hej

En ikke en'helt rigtigt samsat kode. Men illustere måske hvad jeg mener.

<body>
<a href="kontakt.htm" href=UserName href="dato"><LinkTekst></a>
</body>

Kan du se hvordan jeg mener det ønskes indsat?

Det kan også værer, man kan indsætte din kode i html-linjen herover?
Avatar billede doc404 Novice
08. april 2004 - 10:00 #3
Du har altså en form for template, hvor du skal indsætte nogle værdier istedet for UsrName, Dato etc.. Korrekt forstået?

Hvis du blot kalder den UsrName, Data osv bliver det lidt af en opgave at parse sig igennem for at finde dem.

Hvis du istedet prefixer eller omkranser dem med f.eks. @@ så kan du bruge en alm. search og replace som i mit første eksempel.
Avatar billede monie Nybegynder
08. april 2004 - 10:21 #4
Hej
Der er jeg vist på dyby vand!
Kan du give et eksempel indskrevet i html-koden her:

Memo1.Lines.Text:= '<a href="kontakt.htm" title="<MusOverTekst>"
target="hojere" onmouseover="this.href=''mailto:<Mail>&#64;
<Domain>.<Top>?subject=<Subject>
&body=<Dag-måned-år><SignaturTekst><UserName>''"><LinkTekst></a>';
Avatar billede monie Nybegynder
08. april 2004 - 10:27 #5
Hej
Som du skrev "UsrName, Dato " disse skal indsette &Body - linjen, så når
Outlook Ekspresse startes op indskrives brugerens navn og dato:

Som eksempel:

Torsdag d. 08-04-2004
Til---------------------Dette virker

Med venlighilsen--------Dette virker
Brugerens navn her
Avatar billede monie Nybegynder
08. april 2004 - 19:01 #6
Håber at midt spørgsmål er beskrevet bedere nu!
Forsøger at indsætte dato,månede,år og brugerens navn, herunder i koderne.

Hvordan får jeg "Dag-måned-år" i nedstående &body til, at virke?

Html-koden til E-mail link:

<a href="kontakt.htm" title="Send post" target="hojere"
onmouseover="this.href='mailto:&#109;&#97;&#105;&#108;
&#64;&#100;&#111;&#109;&#97;&#105;&#110;.&#100;&#107;
?subject=Emne: Test&body=Til Dig%0D%0A%0D%0AMed venlig hilsen%0D%0AMonie'">
Klik her!</a>

Ved at indsætte denne kode i din html-editor og kør Html-programmet.
Vil der fremkomme en tekst, e-mail-link: Klik her!

Se her: www.sunwind.dk/OutolookEkspress.jpg

Hvordan kaldes og indsættes "UserName" og "Datenavn" i koden herover.
Alså brugerens computer!

Lige som jeg illustrere herunder:

Med venlig hilsen
<UserName>

Har du en løsning?
Avatar billede monie Nybegynder
08. april 2004 - 19:10 #7
Hej
Vær opmærksom på, at ved afprøvelse af Html-koden til E-mail link,
skal koden værer i en lang string, eller fås fejlmeddeling på brudt linje.
Avatar billede doc404 Novice
09. april 2004 - 22:17 #8
var
  s : string;
...
  s := '<a href="kontakt.htm" title="<MusOverTekst>"
target="hojere" onmouseover="this.href=''mailto:<Mail>&#64;
<Domain>.<Top>?subject=<Subject>
&body=<@Dato@><@SignaturTekst@><@UserName@>''"><LinkTekst></a>';

  s := AnsiReplaceText(s,'@Dato@',FormatDateTime('dd-mm-yy',now));
  s := AnsiReplaceText(s,'@SignaturTekst@','Med venlig hilsen');
  s := AnsiReplaceText(s,'@UserName@','Monie');

Memo1.Lines.Text := s;
Avatar billede monie Nybegynder
10. april 2004 - 08:53 #9
Hej

I AnsiReplaceText får jeg fejmeddelsen: [Error] Unit1.pas(32): Undeclared identifier: 'AnsiReplaceText' jeg kender ikke noget til denne kommando?

Da Html-koden er et Link for opstart og adsendelse af e-mail.
Skal koden du beskriver da ikke være indsat i forlængelse af e-mail link'et ??

Koden herunder bliver skabt her: www.sunwind.dk/Antispam.jpg

<a href="kontakt.htm" title="Send post" target="hojere" onmouseover="this.href='mailto:&#109;&#97;&#105;&#108;&#64;&#100;&#111;&#109;&#97;&#105;&#110;.&#100;&#107;?subject=Emne:&body=Til Dig%0D%0A%0D%0AMed venlig hilsen%0D%0AMonie'">Klik her!</a>

Det er denne html-kode, der skal likkes ud på ens hjemmeside for, at forhændre alt den spam.
Håber du kan se ideen med projektet?

Med venlig hilsen
Monie Jacobsen
Avatar billede doc404 Novice
10. april 2004 - 16:05 #10
Hvis du bruger delphi 7 skal du tilføje StrUtils i uses. Benytter du en tidligere version af Delphi, hedder funktionen s := StringReplace(s,'@..@','tilhvad',[rfReplaceAll,rfIgnoreCase]);

Jeg har stadig ikkke forstået hvad ideen går ud på...
Avatar billede monie Nybegynder
10. april 2004 - 16:29 #11
Jeg benytter Delphi 6

Beskriver forløb:

Når der kikkes på e-mail- linkret startes Outlook Ekspress op

Og i denne menu, er der nu indsat e-mail Til og Emne Tekst
Og der hvor vi skriver, er der nu forskrevet "Dato" "Til" "Med venlig hilsen" og "Brugernavn"

Har lige fået dato'en til at virke, men ønsker den placeret til højer
men resten af teksten skal forblive venstre placeret. Hvordan gøres dettte?

10-04-16:17:18

Til Dig

Med venlig hilsen
  UserName

Her er min procedurrr:

procedure TForm1.LMDButton1Click(Sender: TObject);
var
  eUser, eDomain, eTop, eSubject, eLinkTekst, eMusOverTekst, eJavasTekst, eTilTekst, eSignaturTekst: string;
begin
  DeleteFile('C:\temp.html');
  //LMDMemo1.Lines.Text:= '<a href="<JavasTekst>" title="<MusOverTekst>" target="hojere" onmouseover="this.href=''mailto:<Mail>&#64;<Domain>.<Top>?subject=<Subject>''"><LinkTekst></a>';
  //LMDMemo1.Lines.Text:= '<a href="kontakt.htm" title="<MusOverTekst>" target="hojere" onmouseover="this.href=''mailto:<Mail>&#64;<Domain>.<Top>?subject=<Subject>&body=<SignaturTekst>''"><LinkTekst></a>';
  //LMDMemo1.Lines.Text:= '<a href="kontakt.htm" title="<MusOverTekst>" target="hojere" onmouseover="this.href=''mailto:<Mail>&#64;<Domain>.<Top>?subject=<Subject>&body=<Dato>'+'%0D%0A'+'<TilTekst>'+'%0D%0A'+'%0D%0A'+'<SignaturTekst>'+'%0D%0A'+'<UserName>''"><LinkTekst></a>';
  //LMDMemo1.Lines.Text:= '<a href="<JavasTekst>" title="<MusOverTekst>" target="hojere" onmouseover="this.href=''mailto:<Mail>&#64;<Domain>.<Top>?subject=<Subject>&body=<TilTekst>'+'%0D%0A'+'%0D%0A'+'<SignaturTekst>'+'%0D%0A'+'<UserName>''"><LinkTekst></a>';
  LMDMemo1.Lines.Text:= '<a href="<JavasTekst>" title="<MusOverTekst>" target="hojere" onmouseover="this.href=''mailto:<Mail>&#64;<Domain>.<Top>?subject=<Subject>&body=<Dato>'+'%0D%0A'+'%0D%0A'+'<TilTekst>'+'%0D%0A'+'%0D%0A'+'<SignaturTekst>'+'%0D%0A'+'<UserName>''"><LinkTekst></a>';
  eUser := ISOEncode(eLMD1.Text);
  eDomain := ISOEncode(eLMD2.Text);
  eTop := ISOEncode(eLMD3.Text);
  eSubject := eLMD4.Text;
  eLinkTekst := eLMD5.Text;
  eMusOverTekst := eLMD6.Text;
  eJavasTekst := eLMD7.Text;
  eSignaturTekst := eLMD8.Text;
  eTilTekst := eLMD9.Text;
  //edatofile := eLMD10.Text;

  LMDMemo1.Lines.Text := StringReplace(LMDMemo1.Lines.Text, '<Mail>', eUser, [rfReplaceAll,rfIgnoreCase]);
  LMDMemo1.Lines.Text := StringReplace(LMDMemo1.Lines.Text, '<Domain>', eDomain, [rfReplaceAll,rfIgnoreCase]);
  LMDMemo1.Lines.Text := StringReplace(LMDMemo1.Lines.Text, '<Top>', eTop, [rfReplaceAll,rfIgnoreCase]);
  LMDMemo1.Lines.Text := StringReplace(LMDMemo1.Lines.Text, '<Subject>', eSubject, [rfReplaceAll,rfIgnoreCase]);
  LMDMemo1.Lines.Text := StringReplace(LMDMemo1.Lines.Text, '<LinkTekst>', eLinkTekst, [rfReplaceAll,rfIgnoreCase]);
  LMDMemo1.Lines.Text := StringReplace(LMDMemo1.Lines.Text, '<MusOverTekst>', eMusOverTekst, [rfReplaceAll,rfIgnoreCase]);
  LMDMemo1.Lines.Text := StringReplace(LMDMemo1.Lines.Text, '<JavasTekst>', eJavasTekst, [rfReplaceAll,rfIgnoreCase]);

  //edatofile :=datetostr(date);
  //Showmessage('Idag er det den: '+datetostr(date));
  //Showmessage('Klokken er: '+timetostr(time));
  LMDMemo1.Lines.Text := StringReplace(LMDMemo1.Lines.Text, '<Dato>', formatDateTime('dd-mm-tt',now), [rfReplaceAll,rfIgnoreCase]);
  LMDMemo1.Lines.Text := StringReplace(LMDMemo1.Lines.Text, '<TilTekst>', eTilTekst, [rfReplaceAll,rfIgnoreCase]);
  LMDMemo1.Lines.Text := StringReplace(LMDMemo1.Lines.Text, '<SignaturTekst>', eSignaturTekst, [rfReplaceAll,rfIgnoreCase]);
  LMDMemo1.Lines.Text := StringReplace(LMDMemo1.Lines.Text, '<UserName>', 'GetNetUserName', [rfReplaceAll,rfIgnoreCase]);

  LMDMemo1.Lines.SaveToFile('C:\temp.html');
  Webbrowser1.navigate('C:\temp.html');
  //Showmessage(GetNetUserName);
  end;

NB: LMDMemo1 har samme funktion som Memo1

----------------------------------------
Mvh
Monie Jacobsen
Avatar billede monie Nybegynder
10. april 2004 - 17:02 #12
Undskyld de 4 første af:
//LMDMemo1.Lines.Text:= '<a href="<JavasTekst>" title="<MusOverTekst>" target="hojere" onmouseover="this.href=''mailto:<Mail>&#64;<Domain>.<Top>?subject=<Subject>''"><LinkTekst></a>';

Skulle ikke havde været med. Håber du godt kan se det!
Avatar billede monie Nybegynder
11. april 2004 - 08:33 #13
Her er min tilrette procedure efter din metode:

procedure TForm1.LMDButton1Click(Sender: TObject);
var
  eUser, eDomain, eTop, eSubject, eLinkTekst, eMusOverTekst, eJavasTekst, eTilTekst, eSignaturTekst: string;
begin
  DeleteFile('C:\temp.html');

  LMDMemo1.Lines.Text:= '<a href="<JavasTekst>" title="<MusOverTekst>"
  target="hojere" onmouseover="this.href=''mailto:<Mail>&#64;<Domain>.<Top>
  ?subject=<Subject>&body=@Dato@'+'%0D%0A'+'%0D%0A'+'@TilTekst@'+'%0D%0A'+'%0D%0A'+'
  @SignaturTekst@'+'%0D%0A'+'@UserName@''"><LinkTekst></a>';
 
  eUser := ISOEncode(eLMD1.Text);
  eDomain := ISOEncode(eLMD2.Text);
  eTop := ISOEncode(eLMD3.Text);
  eSubject := eLMD4.Text;
  eLinkTekst := eLMD5.Text;
  eMusOverTekst := eLMD6.Text;
  eJavasTekst := eLMD7.Text;
  eSignaturTekst := eLMD8.Text;
  eTilTekst := eLMD9.Text;

  LMDMemo1.Lines.Text := AnsiReplaceText(LMDMemo1.Lines.Text, '<Mail>', eUser);
  LMDMemo1.Lines.Text := AnsiReplaceText(LMDMemo1.Lines.Text, '<Domain>', eDomain);
  LMDMemo1.Lines.Text := AnsiReplaceText(LMDMemo1.Lines.Text, '<Top>', eTop);
  LMDMemo1.Lines.Text := AnsiReplaceText(LMDMemo1.Lines.Text, '<Subject>', eSubject);
  LMDMemo1.Lines.Text := AnsiReplaceText(LMDMemo1.Lines.Text, '<LinkTekst>', eLinkTekst);
  LMDMemo1.Lines.Text := AnsiReplaceText(LMDMemo1.Lines.Text, '<MusOverTekst>', eMusOverTekst);
  LMDMemo1.Lines.Text := AnsiReplaceText(LMDMemo1.Lines.Text, '<JavasTekst>', eJavasTekst);

  LMDMemo1.Lines.Text := AnsiReplaceText(LMDMemo1.Lines.Text, '@Dato@', formatDateTime('dd-mm-yyyy hh:nn:ss',now));
  LMDMemo1.Lines.Text := AnsiReplaceText(LMDMemo1.Lines.Text, '@TilTekst@', eTilTekst);
  LMDMemo1.Lines.Text := AnsiReplaceText(LMDMemo1.Lines.Text, '@SignaturTekst@', eSignaturTekst);
  LMDMemo1.Lines.Text := AnsiReplaceText(LMDMemo1.Lines.Text, '@UserName@', 'UserName');

  LMDMemo1.Lines.SaveToFile('C:\temp.html');
  Webbrowser1.navigate('C:\temp.html');
end;

NB: LMDMemo1 har samme funktion som Memo1

Resultatet vist i Outolook Ekspress:

11-04-2004 08:24:36  --------- Dato ønskes højerstillet?

Til Dig

Med venlig hilsen
UserName --------------------- Brugerens navn her?

Med venlig hilsen
Monie Jacobsen
Avatar billede monie Nybegynder
13. april 2004 - 07:50 #14
Afslutter dette indlæg dat jeg ikke har fåe løst mine problemmer!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Andet programmering kategorien

Titel Indlæg Oprettet Seneste aktivitet
Bat file. Af johnnylassen i Andet programmering 4 23/04/202616:10 24/04/202609:43
Hjælp til Api.asmx Af lurup i Andet programmering 1 17/03/202609:27 17/03/202614:12
burgermenu til hjemmeside - hjælp! Af SabrinaL i Andet programmering 2 12/11/202514:10 02/12/202520:42
Hjælp til programmering af website Af hamdenlange i Andet programmering 16 17/08/202522:26 19/08/202515:53
Kan man registrere hvis folk lukker en side ned Af KurtG i Andet programmering 8 24/07/202513:06 28/07/202517:03
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
IT-JOB

Forsvarsministeriets Materiel- og Indkøbsstyrelse

Cyberdivisionen søger Entreprise Arkitekt

FOA

Forretningskonsulent til digitalisering med mening i FOA IT

Netcompany A/S

Network Engineer

Rambøll Management Consulting

Senior Software Engineer

Capgemini Danmark A/S

AI Data Architect
Seneste spørgsmål Seneste aktivitet
02/0814:53 TV4ever 3.0 Af valby i Diverse
01/0816:21 Installere Ubuntu på Virtuel Maskine Af Uvanga i Andet software
01/0809:38 Microsoft har igen ødelagt mit højreklik Af valby i Windows
30/0714:41 To mails fra YouSee - Jeg tror ikke altid på tilfældigheder Af mort1 i Andet sikkerhed
27/0714:34 Hjælp til at kunne skanne negativer på Plustek 8300i SE Af Mariann i Foto & video
White papers
Flere white papers »