Aus Access heraus eine Email generieren

[Beate1953]

Hallo,

ich will aus einem Formular heraus auf Knopfdruck Outlook öffnen und eine E-Mail generieren mit festem Adressaten und im Betreff die Inhalte zweier Felder des Formulares

Wie kann ich das machen?

Zur Info: Ich habe Access 2010 und Outlook 2010.

Vielen Dank im Voraus für Eure Hilfe
Beate1953

[MaggieMay]

Hi,

ich würde da einfach mal die Suchfunktion hier im Forum nutzen, bspw. mit den Begriffen "email verschicken outlook".

[HB9876]

Hi,
wenn kein VBA, dann einfach ueber ein MAKRO erstellen.
Da hilft auch der Assistent.

[MaggieMay]

Hi,

einfach ueber ein MAKRO erstellen

wie soll das gehen?!

Nein, mit einem Makro kannst du Outlook nicht automatisieren, dazu brauchst du schon eine VBA-Prozedur.

[HB9876]

Hi,

Nein, mit einem Makro kannst du Outlook nicht automatisieren, dazu brauchst du schon eine VBA-Prozedur

wie meinst du automatisieren, das habe ich dann falsch verstanden.
Ich dachte einen Button in ein Formular, da hinter ein MAKRO mit dem "EmailDatabaseObject", hier die festen Empfaenger eingeben und fuer den Betreff die Felder aus dem Formular per Expression Builder.
Habe das mal so geloest, wobei VBA natuerlich weit aus eleganter ist, aber dann doch oft meine Zeit und Wissen uebersteigt.
Habe das gerade mal getestet und das klappt so wie ich mir das vorstelle.
Wie gesagt wenn bestimmt auch eleganter zu loesen.

[Beate1953]

Hallo,

habe jetzt in der Suche nachgeschaut und bin noch verwirrter als vorher.

Ich habe mir jetzt aus dem Gelesenen folgendes zusammengebastelt:

Private Sub MailSenden_Click()
Dim Mail As Outlook.MailItem
Set Mail = Application.CreateItem
Mail.To = "name@firma.de"
Str = Me!Signatur & "; " & Me!Titel
Mail.Subjekt = Str
Mail.Display
End Sub

Allerdings meckert er schon beim Dim dass der Benutzerdefinierte Typ nicht definiert ist.

Bin für jede Hilfe dankbar
Beate1953

[Beate1953]

Hallo,

bin schon ein Stück weiter gekommen. Mit
Application.FollowHyperlink "mailto:" &  "Name@firma.de
öffnet er schon eine neue Email und schreibt den Empfänger rein.

Jetzt fehlt mir aber noch der Betreff, der aus dem Inhalt zweier Felder bestehen soll. Mit
Application.FollowHyperlink "mailto:" &  "Name@firma.de", "mailsubject:" & Me!Signatur
klappt es jedenfalls nicht.

Wie kriege ich den Betreff noch richtig rein?

Viele Grüße
Beate1953

[Beate1953]

Hallo,

jetzt klappt alles. Vielen Dank für Eure Hilfe

Viele Grüße
Beate1953

[MaggieMay]

@HB9876:
es lag ein Missverständnis vor, ich habe etwas gelesen, was Beate so offensichtlich nicht geschrieben hat, nämlich dass sie zwei Anhänge verschicken wollte. 

In diesem Fall kann man das natürlich auch mit SendObject lösen:

Code [Auswählen] Erweitern

DoCmd.SendObject , , , "name@firma.de", , , Me!Signatur & "; " & Me!Titel, True

[HB9876]

@Maggie, ich dachte das selbe bei mir.
Aber wie gesagt, geht auch eleganter.