Office: Mehrere Empfänger in EMail Recipients funktionieren nicht (A2000)

O.Noldus · 22. März 2003

Hallo zusammen,

ich habe fogenden Code (auzugsweise):
Code:

' Create the Outlook session.
Set objOutlook = CreateObject("Outlook.Application")
' Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
' Add the To recipient(s) to the message.
TextEmpfaenger$ = "A.Empf1@test.de;B.Empf2@Test.de"
Set objOutlookRecip = .Recipients.Add(TextEmpfaenger$)
objOutlookRecip.Type = olTo
' Set the Subject, Body, and Importance of the message.
FText1$ = "test"
.Subject = "Test Titel"
.Body = FText1$
.Importance = olImportanceHigh 'High importance
' Add attachments to the message.
If Len(Dir("C:/test.txt")) > 0 Then
Set objOutlookAttach = .Attachments.Add("C:/test.txt")
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

folgendes problem:
Wenn ich als Mailempfänger in Varialbe "Textempfaenger$" eine einzige Mailadresse eingebe, funktioniert alles richtig!
Wenn ich allerdings zwei Mailadressen eingebe (mit ";" getrennt) dann werden die Mail zwar versendet kommen aber nicht an, weil die erste Email adresse vor dem @ "gekürzt" wird (sieht dann so aus: "@test.de;B.Empf2@Test.de"

Weiss jemand was ich falsch mache??

Gruß

Oliver

:)

Nouba · 23. März 2003

Hallo,

versuche mal

Set objOutlookRecip = .Recipients.Add("A.Empf1@test.de")
Set objOutlookRecip = .Recipients.Add("B.Empf2@test.de")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

O.Noldus · 23. März 2003

Warum schwer wenns auch so einfach geht! *wink.gif*
Danke für die schnelle Hilfe.

Oliver

eddie · 7. Mai 2003

Ich habe es noch einfacher gemacht und es funktioniert:
Einfach alle Empfängeradressen mit ; voneinander trennen.
Mein Skript schaut so aus und funktioniert:

Code:

Public Sub Mailerstellen(Empfaenger As String, Betreff As String, Text As String, AttachmentPath As String)
'
' Bei mehreren Empfängern diese durch ; trennen
'
On Error GoTo Fehler:

Const olMailItem = 0

Dim myOutlook As Object
Dim mailitem As Object

Set myOutlook = CreateObject("Outlook.Application")
Set mailitem = myOutlook.CreateItem(olMailItem)

With mailitem
.To = Empfaenger
.Subject = Betreff
.Body = Text
.Attachments.Add (AttachmentPath)
.Send
End With

MsgBox ("Die E-Mail wurde an Outlook übergeben!")

Exit_EMailsenden_Click:
Exit Sub

Fehler:
MsgBox ("Ist überhaupt Outlook installiert?" & Chr(13) & "Haben Sie eine E-Mail-Adresse ausgewählt?")
Resume Exit_EMailsenden_Click

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

Eventuell könnte man noch mit Cc und Bcc noch herumprobieren, habe ich mir aber gespart.

MRR · 7. Mai 2003

Noch eine Ergänzung: Hast Du es mal mit anschliessendem .ResolveAll versucht?

Office: Mehrere Empfänger in EMail Recipients funktionieren nicht (A2000)

Mehrere Empfänger in EMail Recipients funktionieren nicht (A2000)

Mehrere Empfänger in EMail Recipients funktionieren nicht (A2000)

Mehrere Empfänger in EMail Recipients funktionieren nicht (A2000)

Mehrere Empfänger in EMail Recipients funktionieren nicht (A2000) - Similar Threads - Empfänger EMail Recipients

VBA eine Mail Empfänger aus Zellen ziehen

DomainFactory Email - kein Empfang in Outlook

Outlook 2021 - Emails werden nicht korrekt angezeigt/empfangen

Dritter kann email konversation mitlesen, ohne Empfänger zu sein.

Email an mehrere Adressaten

variabler Email-Empfänger

Empfänger in der E-Mail größer darstellen