Hoofdletters in mailbericht

dick

2007-05-01 11:20:00 UTC

Met deze werkwijze omzeil je ook een (mail-)editor. In feite doe je met de
Call Shell een commandline-opdracht met wat switches.
Ik heb er geen bewijzen voor, maar daarbij zou wel eens iedere lay-out ( in
de ruimste zin) overruled kunnen worden, en standaard ASCII's vanaf 97 (=
kleine letters) gebruikt worden.

Zet eens Chr(65) (65 t/m 90 zijn de hoofdletters A t/m Z) ergens in je
Mail_body
en kijk hoe dat er uitkomt.

Gr
Dick

Post by Justice4u
Ik heb eerder een topic gestart over de visual basic code waarmee via smtp
een mail automatisch verstuurd kan worden vanuit Access.
Nu werkt dat allemaal perfect, maar het mailbericht wat uiteindelijk
verstuurd wordt bevat een inhoud met alléén maar kleine letters. Dit terwijl
de tekst toch echt hoofdletters bevat. Heeft iemand enig idee waarom deze
hoofdletters verdwijnen en hoe ik dit eventueel op kan lossen?
Hier nog een keer de code die ik gebruik. De smtp-gegevens worden vooraf in
een algemene module gedeclareert!
*****
Public Function MailVerzenden()
On Error GoTo Error_Foutafhandeling
'Declareert tijdelijke variabelen
Dim mail_toadress As String
Dim mail_subject As String
Dim mail_body As String
Dim stAppName As String
'Emailadres ophalen
mail_toadress = DLookup("Gebruiker_Email", "Sys_Gebruiker",
"Gebruiker_Inlognaam = '" & GebInlogNaam & "'")
'Mailinhoud instellen
mail_body = "Geachte gebruiker, " & vbCrLf & vbCrLf
mail_body = mail_body & "Er is een nieuw wachtwoord aangevraagd voor " &
AppNaam & "." & vbCrLf & vbCrLf
mail_body = mail_body & "Uw inlognaam: " & GebInlogNaam & vbCrLf & vbCrLf
mail_body = mail_body & "Uw nieuwe wachtwoord: welkom" & vbCrLf & vbCrLf
& vbCrLf
mail_body = mail_body & "In het menu kunt u het wachtwoord weer
wijzigen." & vbCrLf & vbCrLf
mail_body = mail_body & "Met vriendelijke groet," & vbCrLf & vbCrLf
mail_body = mail_body & BGNaam & vbCrLf
mail_body = mail_body & Admin
mail_subject = "Nieuw wachtwoord voor " & AppNaam & "."
stAppName = smtp_programdir & "\sendmail /smtpserver " & smtp_server & "
/to " & mail_toadress & " /from " & smtp_fromadress & " /subject " &
mail_subject & " /body " & mail_body & " /smtpport " & smtp_port & " /user "
& smtp_username & " /password " & smtp_password & ""
Call Shell(stAppName, 1)
Call Gebruiker_Actie(ModuleNaam, "MailVerzenden", "-")
Exit Function
Select Case Err.Number
Case Is = 0
Resume MailVerzenden_Exit
Case Else
Call Foutafhandeling(ModuleNaam, "MailVerzenden", False, "")
Resume MailVerzenden_Exit
End Select
End Function
*****
--
It''s Justice4u