Thema Datum  Von Nutzer Rating
Antwort
Rot Handynummern auslesen, 0 am Anfang löschen und +49 davorpacken
 06.05.2011 10:41:17 Gast51426
NotSolved
06.05.2011 14:02:11 Till
Solved

Ansicht des Beitrags:
Von:
Gast51426		 Datum:
06.05.2011 10:41:17		 Views:
1501		 Rating:
     
Antwort:
  Ja
Thema:
Handynummern auslesen, 0 am Anfang löschen und +49 davorpacken

Hallo,

ich bräuchte mal eure Hilfe. Ich baue gerade an einem Makro, das Handynummern aus einer Tabelle ausliest, die 0 am Anfang entfernt und ein +49 davorpackt. Die Handnummern befinden sich in Spalte F.

Das ganze soll dann per Outlook gesendet werden. Das Makro zum versenden von E-Mails ( Die Handynummern können E-Mails empfangen, diese werden dann als SMS angezeigt) habe ich schon, dieses müsste man dann anpassen für das neue Makro:

 

Sub emailverschicken()
   Dim Adressat As String
   Dim cell As Range
   Dim outapp As Object, outmail As Object
   Dim Mailnachricht As String
   
   Range("G5:G200").Select
   
   Mailnachricht = "<span style=""font-size:10pt; font-family:'Arial'"">" & _
   "Hallo zusammen,</br></br>anbei die wöchentliche IPMB-Liste aus unserer heutigen IPMB-Telko zu Ihrer Information."
             
   Adressat = ""
   For Each cell In Selection
    If cell.Value Like "*@*" And cell.EntireRow.Hidden = False Then
         Adressat = Adressat & ";" & cell.Value
    End If
   Next
   Adressat = Mid(Adressat, 2)
   Set outapp = CreateObject("Outlook.Application")
   Set outmail = outapp.CreateItem(0)
   
   With outmail
        .Display
        .GetInspector
        .To = Adressat
        .Subject = "IPMB-Liste vom " & Date
        .HTMLBody = Mailnachricht & .HTMLBody
   End With
   
   Set outmail = Nothing
   Set outapp = Nothing
  
End Sub



Könnt Ihr mir bitte helfen? Ich denke mal für euch VBA Profis ist das ein Klacks, ich beiß mir daran jedoch die Zähne aus.

Vielen Dank schonmal!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Handynummern auslesen, 0 am Anfang löschen und +49 davorpacken
 06.05.2011 10:41:17 Gast51426
NotSolved
06.05.2011 14:02:11 Till
Solved