Office: (Office 2007) aktives Excel-Datenblatt per VBA-Makro nach Outlook kopieren

Helfe beim Thema aktives Excel-Datenblatt per VBA-Makro nach Outlook kopieren in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hi, Code: .ListObjects("Tabelle_SCM_BE.accdb").Range.AutoFilter _ Field:=2, Criteria1:=" [ATTACH] Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Joao, 10. Juni 2015.

Seite 5 von 6

Beverly Erfahrener User

aktives Excel-Datenblatt per VBA-Makro nach Outlook kopieren

Hi,

Code:

.ListObjects("Tabelle_SCM_BE.accdb").Range.AutoFilter _
Field:=2, Criteria1:="

Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly, 28. Juni 2015

#61
JOAO

Joao

Super Problem 3 gelöst!

DANKE DANKE

Joao, 30. Juni 2015

#62
JOAO

Joao

Jetzt habe ich nur noch das Problem mit Email Versand.

Noch mal zur Info:
Ich möchte das immer von einen Funktionspostfach "Nachfrage" gesendet wird.
Da ich 3 Postfächer + meinen eigenen habe, möchte ich das immer die absende Adresse per Makro mit eingetragen wird.
Im mom. trage ich immer die Email Adresse manuell ein.

Wie gesagt, es ist kein Vollständiges Account, sondern ein Funktionspostfach wo ich alle Rechte habe.

Joao, 30. Juni 2015

#63
Beverly Erfahrener User

aktives Excel-Datenblatt per VBA-Makro nach Outlook kopieren

Meinen Beitrag vom 27.06.2015, 18:43 hast du gelesen?

Beverly, 30. Juni 2015

#64
JOAO

Joao

JA,

es kommt eine Fehlermeldung.

Joao, 30. Juni 2015

#65
HS(V)

HS(V)

Hallo,

Und so?
Code:

Function GetOutlookAccount(objOutlook As Object, strEmailId As String) As Object
Dim objOAccount As Object
For Each objOAccount In objOutlook.Session.Accounts
If objOAccount.DisplayName like strEmailId Then
Set GetOutlookAccount = objOAccount
Exit For
End If
Next objOAccount
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

HS(V), 30. Juni 2015

#66
Beverly Erfahrener User

Hi,

der Fehler kommt weil kein betreffendes Konto gefunden wird. Du musst also einen tatsächlich exisitierenden kompletten Namen angeben und keinen mit "*". Oder du prüfst mit Instr, ob im Konto der Begriff "Nachfrage" enthalten ist:

Code:

Dim intZaehler As Integer
For intZaehler = 1 To .Session.Accounts.Count
If Instr(.Session.Accounts.Item(intZaehler), "Nachfrage") 0 Then Exit For
Next intZaehler
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dann wird das 1. gefundene Konto verwendet, das diesen Teil beinhaltet.

Beverly, 30. Juni 2015

#67
JOAO

Joao

aktives Excel-Datenblatt per VBA-Makro nach Outlook kopieren

Hallo,
ich bekomme ein Laufzeitfehler.

Hier nochmal den Kompletten Code:
Code:

Function GetOutlookAccount(objOutlook As Object, strEmailId As String) As Object
Dim objOAccount As Object
For Each objOAccount In objOutlook.Session.Accounts
If objOAccount.DisplayName Like strEmailId Then
Set GetOutlookAccount = objOAccount
Exit For
End If
Next objOAccount
End Function

Sub eMail_ohne_Anhang_Versenden()
Dim OlApp As Object
Dim AWS As String
Dim olOldbody As String
Dim lngLetzte As Long
Dim rngBereich As Range
Dim strHTML As String
' Email Erstellen
lngLetzte = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Set rngBereich = Range(Cells(6, 1), Cells(lngLetzte, 26)).SpecialCells(xlCellTypeVisible)
Set OlApp = CreateObject("Outlook.Application")

With OlApp.CreateItem(0)
Dim intZaehler As Integer
For intZaehler = 1 To .Session.Accounts.Count
If InStr(.Session.Accounts.Item(intZaehler), "Nachfrage") 0 Then Exit For
Next intZaehler

.SendUsingAccount = .Session.Accounts.Item(intZaehler)
.GetInspector.Display 'Email anzeigen
.ReadReceiptRequested = True 'Lesebestätigung
.Sensitivity = 3 'Vertraulichkeit
.Importance = 2 'Wichtigkeit
' Email
olOldbody = .HTMLBody
.To = "testserver.de"
.CC = "empfänger@"
.BCC = "empfänger@"
.Subject = "Bitte bearbeiten"
' Das Format des Emailtextes
strHTML = RangetoHTML(rngBereich) & olOldbody
strHTML = Replace(strHTML, "align=center", "align=left")
.HTMLBody = strHTML
.GetInspector.Display
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Joao, 1. Juli 2015

#68
Beverly Erfahrener User

Hi,

dann lasse dir mal den Kontonamen nach der Schleife anzeigen, ob der korrekt ist:

Code:

MsgBox .Session.Accounts.Item(intZaehler)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly, 1. Juli 2015

#69
JOAO

Joao

Leider noch nicht.

Joao, 1. Juli 2015

#70
Beverly Erfahrener User

Hast du den Code mal im Einzelschrittmodus ablaufen lassen, die Kontonamen (wie in meinem vorheringen Beitrag nachgefragt) anzeigen lassen und geprüft, ob die Schleife überhaupt mit Exit verlassen wird? Der Fehler kommt, wenn es kein Konto gibt, das den Begriff "Nachfrage" beinhaltet und dadurch der Schleifenzähler beim Beenden der Schleife um 1 über der Anzahl an vorhandenen Konten liegt.

Beverly, 1. Juli 2015

#71
JOAO

Joao

Hallo,

es kommt die gleiche Fehlermeldung!

Info:
Als Konto, habe ich nur mein eigenes. (Bild email-8.JPG)

Die anderen sind Funktionspostfächer, unter Erweitert eingetragen. (email-1.JPG)

Ich habe Outlook 2007.

Joao, 1. Juli 2015

#72
Beverly Erfahrener User

aktives Excel-Datenblatt per VBA-Makro nach Outlook kopieren

Du benutzt kein "normales" Outlook sondern Exchange Server - da kann ich dir leider nicht weiterhelfen. Ich empfehle dir deshalb, einen neuen Thread direkt zu diesem Thema zu eröffnen, wie du in Excelchange Server das Konto abfragen kannst mit dem versendet werden soll.

Beverly, 1. Juli 2015

#73
JOAO

Joao

OK

Danke

Joao, 1. Juli 2015

#74
JOAO

Joao

Hallo, *Smilie ich brauche doch noch was.

Wie muss das Makro Aussehen, wenn das Abschlussdatum falsch (in der Zukunft) liegt!

Code:

' Makro
With Worksheets("Fehler-Analyse")
If Application.CountA(.UsedRange) 0 Then
lngLetzte = .Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
intLetzte = .Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
If lngLetzte > 7 Then .Range(.Cells(6, 1), .Cells(lngLetzte, intLetzte)).ClearContents
End If
.Cells.EntireColumn.Hidden = False
.Columns("A:A").Hidden = True
End With
With Worksheets("WHS_Tracking")
.ListObjects("Tabelle_SCM_BE.accdb").Range.AutoFilter Field:=2, Criteria1:=">" & CLng(Date), Operator:=xlAnd
.ListObjects("Tabelle_SCM_BE.accdb").Range.AutoFilter Field:=4, Criteria1:="Call"
.ListObjects("Tabelle_SCM_BE.accdb").Range.AutoFilter Field:=5, Criteria1:="True"
.ListObjects("Tabelle_SCM_BE.accdb").Range.SpecialCells(xlCellTypeVisible).Copy
Worksheets("Fehler-Analyse").Range("A20").PasteSpecial xlPasteValuesAndNumberFormats
.ListObjects("Tabelle_SCM_BE.accdb").Range.AutoFilter Field:=7
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Joao, 2. Juli 2015

#75

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 5 von 6

Thema:

aktives Excel-Datenblatt per VBA-Makro nach Outlook kopieren

Die Seite wird geladen...

aktives Excel-Datenblatt per VBA-Makro nach Outlook kopieren - Similar Threads - aktives Excel Datenblatt
Zellen aus Aktiver Zeile kopieren
in Microsoft Excel Hilfe
Zellen aus Aktiver Zeile kopieren: Hallo zusammen, im Grunde genommen ist es wohl ganz einfach … ich weiss es aber trotzdem nicht wie es in VBA umsetze. Ich will aus einer „Aktiven Reihe“ (diese wähle ich vorher über einen...
Zugriff auf andere Excel Datei ohne aktives Öffnen
in Microsoft Excel Hilfe
Zugriff auf andere Excel Datei ohne aktives Öffnen: Liebe Community, ich habe mir eine Formel geschrieben um Werte aus einer anderen Excel Datei in meine Haupt Excel Datei einzufügen. Leider muss die Datei aus der ich die Daten haben will immer...
Im Endlosformular aktiven Datensatz hervorheben
in Microsoft Access Hilfe
Im Endlosformular aktiven Datensatz hervorheben: Hallo liebe Mitglieder. Eigentlich benötige ich was ganz einfaches... Ich lasse mir meine Datensätze (Filme) in einem Endlosformular anzeigen. Jeder Datensatz hat diverse Buttons. Klicke ich auf...
Nur ein aktives Optionsfeld
in Microsoft Word Hilfe
Nur ein aktives Optionsfeld: Hallo liebe Word-Gemeinde. Ich bin auf der Suche nach einer Lösung, komme aber nicht dahinter. Ich benötige Optionsfelder, in der es nur eine Wahlmöglichkeit gibt. Beispiel: Ich möchte einen...
Excel VBA CommentIndicator Farbe ändern, Code Umbau auf Aktive Zelle
in Microsoft Excel Hilfe
Excel VBA CommentIndicator Farbe ändern, Code Umbau auf Aktive Zelle: Hi Zusammen man kann ja den CommentIndicator leider nicht auf normalem Weg ändern (Rote Dreieck rechts in Ecke was einem anzeigt hier ist ein Kommentar in Zelle) nun hab ich folgendes Makro was...
Excel 2003: Aktive Zeile farblich hinterlegen
in Microsoft Excel Hilfe
Excel 2003: Aktive Zeile farblich hinterlegen: Hallo, ich schon wieder. Ich sitze nach wie vor an ziemlich großen und unübersichtlichen Excel-Tabellen, weswegen ich nach einer Möglichkeit suche, die jeweils aktive Zeile komplett farblich zu...
aktiver Formeltext - Excel 2003 - english version
in Microsoft Excel Hilfe
aktiver Formeltext - Excel 2003 - english version: Hallo liebe Foren-User, ich erstelle jede Woche Auswertung mit Excel, die eine Vielzahl von S-Verweisen (VLOOKUP's) in jeweils eine andere Excel-Datei enthalten. Nun meine Frage: Kann ich...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden