Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Sicherheitshinweis ---> für registrierte Mitglieder <-
Email versenden leicht gemacht ?
zurück: Access Jahr 2010 Problem? weiter: Wenn funktion für Kombinationsfeld Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten.     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
denzur
Im Profil kannst Du frei den Rang ändern


Verfasst am:
27. Jan 2010, 10:39
Rufname:

Email versenden leicht gemacht ? - Email versenden leicht gemacht ?

Nach oben
       Version: Office 2007

Hallo alle zusammen ich habe in einem anderen Topic einen Code gefunden um Emails zu erstellen. Leider funktioniert das ganze bei mir nicht so richtig hier der Code

Code:
Private Sub btn_Email_erstellen_Click()
Public Function btn_Email_erstellen_Click(Optional om_To As String, _
                                          Optional om_CC As String, _
                                          Optional om_BCC As String, _
                                          Optional om_Subject As String, _
                                          Optional om_Body As Variant, _
                                          Optional om_Attachment As String, _
                                          Optional om_Atta_text As String, _
                                          Optional om_Atta_endung As String)
On Error GoTo Err_mail_versenden
    Dim olApp       As Outlook.Application
    Dim olNamespace As NameSpace
    Dim objMailItem As MailItem
    Dim objFolder   As MAPIFolder

    Set olApp = CreateObject("Outlook.Application")
    Set olNamespace = olApp.GetNamespace("MAPI")
    Set objFolder = olNamespace.GetDefaultFolder(olFolderInbox)
    Set objMailItem = objFolder.Items.Add(olMailItem)
    With objMailItem
        .To = om_To
        .CC = om_CC
        .BCC = om_BCC
        .Subject = om_Subject
        .Body = om_Body
        If Not om_Attachment = "" And Not om_Atta_text = "" Then
            .Attachments.Add om_Attachment, olByValue, 10000, _
                             om_Atta_text & om_Atta_endung
          ElseIf Not om_Attachment = "" And om_Atta_text = "" Then
            .Attachments.Add om_Attachment, olByValue, 10000
        End If
        .Display (True)
    End With

Exit_mail_versenden:
    Exit Function
Err_mail_versenden:
    MsgBox Err.Description
    Resume Exit_mail_versenden
End Function
End Function



Irgend etwas mit den ersten und letzen Zeilen läuft nicht glatt das weiss ich aber wie muss es denn heißen...bin leider ein VBA neuling

Und wie genau heißt denn der Library Eintrag den ich aktivieren muss damit das ganze funktioniert?

Vielen Dank
denzur
jens05
Moderator


Verfasst am:
27. Jan 2010, 10:59
Rufname:
Wohnort: ~~~~~


AW: Email versenden leicht gemacht ? - AW: Email versenden leicht gemacht ?

Nach oben
       Version: Office 2007

dieses Thema ist gesperrt,
mache bitte im anderen weiter. Email aus Access mit Bericht als Anhang

_________________
mfg jens05 Wink
Neues Thema eröffnen   Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Email Adresse automatisch erstellen 8 Enno84 159 27. Feb 2014, 17:54
GastA Email Adresse automatisch erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: Email Hyperlink von Spalte als Text in andere Spalte 4 Stefan761 107 25. Sep 2013, 14:41
Stefan761 Email Hyperlink von Spalte als Text in andere Spalte
Keine neuen Beiträge Access Tabellen & Abfragen: Email Adresse trennen 4 Svennemann 608 23. Feb 2012, 12:13
Svennemann Email Adresse trennen
Keine neuen Beiträge Access Tabellen & Abfragen: DoCmd.SendObject --> E-Mail Adressen ins Bcc Feld senden 7 Fmarmy 1232 03. Aug 2011, 14:15
Fmarmy DoCmd.SendObject --> E-Mail Adressen ins Bcc Feld senden
Keine neuen Beiträge Access Tabellen & Abfragen: Nachname hat mehere Teile zusammenführen für email Adresse 2 Gast aus Stuttgart 207 24. Jul 2011, 20:38
Gast aus Stuttgart Nachname hat mehere Teile zusammenführen für email Adresse
Keine neuen Beiträge Access Tabellen & Abfragen: Einen gruppierten Serienbericht als Email versenden 0 MartinGrosse 710 14. Jan 2010, 11:37
MartinGrosse Einen gruppierten Serienbericht als Email versenden
Keine neuen Beiträge Access Formulare: Wert Kontrollkästchen in Email als Klartext 2 Gast 276 09. Jun 2009, 19:36
Gast Wert Kontrollkästchen in Email als Klartext
Keine neuen Beiträge Access Tabellen & Abfragen: Serienbriefe und eMail 0 streamilein 307 13. Apr 2009, 21:47
streamilein Serienbriefe und eMail
Keine neuen Beiträge Access Formulare: Fragebogen als Formular per E-Mail verschicken?? 1 juergen82 589 18. Jul 2008, 22:34
MiLie Fragebogen als Formular per E-Mail verschicken??
Keine neuen Beiträge Access Formulare: Formular mit Unterformular per E-mail verschicken 7 freeman1982 916 02. Nov 2006, 20:25
freeman1982 Formular mit Unterformular per E-mail verschicken
Keine neuen Beiträge Access Formulare: Frage zu E-Mail 1 maila 596 14. Sep 2006, 19:49
jens05 Frage zu E-Mail
Keine neuen Beiträge Access Formulare: Aktuelles Formular per e-mail versenden 1 steffen2507 1113 09. Sep 2006, 20:36
Vielgelesen Aktuelles Formular per e-mail versenden
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft-Excel Diagramme