Sende mail fra Access

Hej

Prøv at kikke på denne artikel http://www.eksperten.dk/artikler/371, her er beskrevet step by step hvad du skal gøre, der er samtidig gode tips og triks til hvis man vil "forfine" det lidt. Jeg har selv brugt artiklen, det virker fremragende :o)

men ellers her den korte version.

Indsæt en kommandoknap på din formular, under hændelse ved klik skriver du nedenstående kode:

On Error GoTo errhandler
DoCmd.SendObject , "", "", Me!NavnPåDitFeltmedEmailadresse, "", "", "", "", True, ""
errhandler:
If Err.Number = 2501 Then Exit Sub

Koden åbner en ny mail i dit standardmail program og indsætter den mailadresse der er angivet i det dertil indrettet felt på din formular. Errorhåndteringen forhinder en fejl hvis du fortyder oprettelse af den nye mail.

tville > Jeg kan sende dig de databaser, der ligger til grund for min artikel. Blot læg din e-mail.

Hej Anders

Det virker fint det du skriver, men er der en måde hvorpå man kan få sin signatur fra Outlook med i mailen?

Det ved jeg faktisk ikke, men jeg tror det bliver svært at styre inde fra Access, men noget egenligt bud på det har jeg desværre ikke.

Tak for hjælpen

Selv tak, og tak for point, håber du kommer godt videre med dit projekt :o)

Hej tville

Ved at nærlæse dette spørgsmål http://www.eksperten.dk/spm/594901, er der faktisk en metode så din autosignatur kan komme med. Nedenstående et kodeeks på dette, men jeg anbefaler at du nærlæser det spørgsmål med indlæg jeg henviser til. For at mit kodeeks. Virker skal du først tilføje en referance til dit objektbibliotek, dette gøres i din vba editor under menuen Tools/referancer, du skal afkrydse Microsoft Outlook dit versionsnummer. Fordelen ved den første metode at Docmd objektet altid starter dit standard mailprogram, nedenstående kode virker kun på en Outlook mailklient.

Ved klik-hændelse på din kommandoknap skal du skrive nedenstående:

Dim objOl As New Outlook.Application
Dim objPost As MailItem
Set objPost = objOl.CreateItem(olMailItem)
With objPost
.Subject = ""
.To = Me!NavnPåDitMailadresseFelt
.Display 'viser mail'
End With
Set objPost = Nothing

Du vil nu opleve at din autosignatur i Outlook vises i bodyfeltet. Af en eller anden grund virker det kun hvis du IKKE angiver en standardtekst i bodyfeltet via ovenstående kode. Du kan læse meget mere om dette i det spørgsmål jeg henviser til. God fornøjelse med det :o)