Impostare Mail con Più Account con macro vba

Anonimo
2015-03-31T13:03:43+00:00

Ciao a tutti,

ho una macro vba che, grazie all'aiuto di qualcuno di voi, funziona perfettamente.

Da oggi mi hanno configurato un altro indirizzo mail su Outlook 2013 e vorrei da partire tutte le mail generate dalla macro di defualt da questo nuovo indirizzo.

Qual'è l'istruzione da utilizzare?

Grazie mille.

Saluti,

PDA

Microsoft 365 e Office | Excel | Per la casa | Windows

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti
Risposta accettata dall'autore della domanda
Anonimo
2015-04-01T10:18:30+00:00

Ciao Paolo,

2 cose:

  • se la risposta ha risolto il tuo problema ti chiedo cortesemente di segnarla come risposta, aiuterai altri utenti con lo stesso problema a rintracciare più velocemente la soluzione
  • considerando che sono a pochi km da te direi che prima o poi una passeggiata sulla rotonda di Ostia me la vengo a fare :-))

David

La risposta è stata utile?

0 commenti

6 risposte aggiuntive

Ordina per: Più utili
Più utili Più recente Meno recente
  1. Anonimo
    2015-04-01T08:24:21+00:00

    Grazie mille, David.

    Funziona perfettamente.

    Saluti ed alla prossima.

    PDA

    La risposta è stata utile?

    0 commenti
  2. Anonimo
    2015-04-01T06:49:54+00:00

    Ciao Paolo

    devi utilizzare la proprietà SendUsingAccount.

    Dai un'occhiata al seguente articolo di Ron De Bruin: 

    Use the mail account you want in your mail macro

    David

    La risposta è stata utile?

    0 commenti
  3. Anonimo
    2015-03-31T14:34:43+00:00

    Ciao Norman,

    ti ringrazio innanzitutto per la tempistività.

    Riporto la prima parte del codice, considerata l'eccessiva lunghezza.

    Fammi sapere.

    Option Explicit

    Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

    Private Sub CommandButton1_Click()

        Dim wk1 As Workbook     'Cartella CSV

        Dim sh1 As Worksheet

        Dim sh2 As Worksheet

        Dim sh3 As Worksheet

        Dim fd As Office.FileDialog

        Dim strFileCSV As String

        Dim otlApp As Object

        Dim otlNewMail As Object

        Dim risp As Integer

        Const accapo As String = "<BR>"

        Dim variabileEmailDelDestinatario As String

        Dim riga As Long

        Dim fName As String

       Const cSavePath As String = "C:\Users\Ry03360\Desktop"

        If Dir(cSavePath, vbDirectory) = "" Then

            MsgBox "La directory di destinazione non esiste !!!", vbCritical, "Errore !!!"

            Exit Sub

        End If

        Select Case Weekday(Date, vbUseSystemDayOfWeek)

       Case 1   'IL LUNEDI'

         risp = MsgBox("AGGIORNATO  L'AVVISO  GENERALE ???" _

                , vbYesNo + vbQuestion, "ATTENZIONE:  OGGI  E'  LUNEDI' ???")

            If risp = vbYes Then

             riga = 6

    While (Not Foglio1.Cells(riga, 8) = Empty) And (riga <= 1000)

    variabileEmailDelDestinatario = Foglio1.Cells(riga, 20)

    Set otlApp = CreateObject("Outlook.Application")

    'Set otlNewMail = otlApp.CreateItem(olMailItem)

    Set otlNewMail = otlApp.CreateItemFromTemplate("C:\Users\Ry03360\Desktop\REPSOL\ModelloMail.oft")

    fName = ActiveWorkbook.Path & "" & ActiveWorkbook.Name

    With otlNewMail

    .To = variabileEmailDelDestinatario

    .Subject = "Quotazioni Repsol Italia S.p.A. per " & StrConv(Format(Date + 1, "Long Date"), vbProperCase)

             If Trim(Foglio1.Cells(riga, 23)) <> "" Then

             .HTMLBody = "<FONT face = Verdana>" & "<B>" & "<U>" & "AVVISO:" & "</U>" & "</B>" & " " & " " & _

             "<span style = background-color:#ff0>" & _

             Trim(Foglio1.Cells(riga, 22)) & "</SPAN>" & _

             accapo & accapo & "<B>" & "<U>" & "<span style = background-color:#ff0>" & "N.B.:" & _

             "</U>" & "</SPAN>" & "</B>" & " " & " " & Trim(Foglio1.Cells(riga, 23)) & accapo & accapo & "<U>" & "Spett.le:" & _

             "</U>" & "<B>" & " " & " " & Trim(Foglio1.Cells(riga, 8)) & "</B>" & accapo & "<U>" & "Codice Cliente:" & "</U>" & _

             "<B>" & " " & " " & Trim(Foglio1.Cells(riga, 5)) & "</B>" & accapo & accapo & "<I>" & "Autotrazione  €/mc:    " & _

             "</I>" & "<B>" & " " & Trim(Foglio1.Cells(riga, 9)) & "</B>" & accapo & "<I>" & "Motopesca  €/mc:         " & "</I>" & "<B>" & _

             " " & Trim(Foglio1.Cells(riga, 11)) & "</B>" & accapo & "<I>" & "Agricolo  €/mc:       " & "</I>" & "<B>" & " " & _

             Trim(Foglio1.Cells(riga, 10)) & "</B>" & accapo & "<I>" & "Autoprod. E.E.  €/mc:         " & "</I>" & "<B>" & " " & _

             Trim(Foglio1.Cells(riga, 11)) & "</B>" & accapo & "<I>" & "Riscaldamento  €/mc:     " & "</I>" & "<B>" & " " & _

             Trim(Foglio1.Cells(riga, 12)) & "</B>" & accapo & "<I>" & "Benzina  €/mc:         " & "</I>" & "<B>" & " " & _

             Trim(Foglio1.Cells(riga, 13)) & "</B>" & accapo & "<I>" & "Auto Sac  €/mc:       " & "</I>" & "<B>" & " " & _

             Trim(Foglio1.Cells(riga, 14)) & "</B>" & accapo & "<I>" & "0,1 S  €/mc:       " & "</I>" & "<B>" & " " & _

             Trim(Foglio1.Cells(riga, 15)) & "</B>" & accapo & accapo & accapo & .HTMLBody

             Else

              .HTMLBody = "<FONT face = Verdana>" & "<B>" & "<U>" & "AVVISO:" & "</U>" & "</B>" & " " & " " & _

              "<span style = background-color:#ff0>" & _

             Trim(Foglio1.Cells(riga, 22)) & "</SPAN>" & _

              accapo & accapo & "<U>" & "Spett.le:" & "</U>" & "<B>" & " " & " " & _

              Trim(Foglio1.Cells(riga, 8)) & "</B>" & accapo & "<U>" & "Codice Cliente:" & "</U>" & "<B>" & " " & " " & _

              Trim(Foglio1.Cells(riga, 5)) & "</B>" & accapo & accapo & "<I>" & "Autotrazione  €/mc:    " & "</I>" & "<B>" & " " & _

              Trim(Foglio1.Cells(riga, 9)) & "</B>" & accapo & "<I>" & "Motopesca  €/mc:         " & "</I>" & "<B>" & " " & _

              Trim(Foglio1.Cells(riga, 11)) & "</B>" & accapo & "<I>" & "Agricolo  €/mc:       " & "</I>" & "<B>" & " " & _

              Trim(Foglio1.Cells(riga, 10)) & "</B>" & accapo & "<I>" & "Autoprod. E.E.  €/mc:         " & "</I>" & "<B>" & " " & _

              Trim(Foglio1.Cells(riga, 11)) & "</B>" & accapo & "<I>" & "Riscaldamento  €/mc:     " & "</I>" & "<B>" & " " & _

              Trim(Foglio1.Cells(riga, 12)) & "</B>" & accapo & "<I>" & "Benzina  €/mc:         " & "</I>" & "<B>" & " " & _

              Trim(Foglio1.Cells(riga, 13)) & "</B>" & accapo & "<I>" & "Auto Sac  €/mc:       " & "</I>" & "<B>" & " " & _

              Trim(Foglio1.Cells(riga, 14)) & "</B>" & accapo & "<I>" & "0,1 S  €/mc:       " & "</I>" & "<B>" & " " & _

              Trim(Foglio1.Cells(riga, 15)) & "</B>" & accapo & accapo & accapo & .HTMLBody

             End If

             .ReadReceiptRequested = False

             .OriginatorDeliveryReportRequested = False

             '.Attachments.Add ("C:\Users\Ry03360\Desktop\Modulo Ordini.xls")

           .Send

                    End With

                    riga = riga + 1

                Wend

                Else

                Exit Sub

                End If

                Exit Sub

        End Select

           Select Case Weekday(Date, vbUseSystemDayOfWeek)

       Case 2 To 5   'Da Mart a Ven

        risp = MsgBox("INVIARE  GLI  SCADUTI  CON  LE  QUOTAZIONI ???" _

               , vbYesNoCancel + vbQuestion, "OK  il  Martedì,  Mercoledì,  Giovedì  e  Venerdì !!!")

        If risp = vbYes Then 'se rispondo SI alla prima finestra

            risp = MsgBox("SALVATO  IL  File796a  DI  OGGI  SUL  DESKTOP ???" _

                , vbYesNo + vbQuestion, "AGGIORNATO  L'AVVISO  GENERALE ???")

                If risp = vbYes Then  'se rispondo SI alla seconda finestra

                  Set fd = Application.FileDialog(msoFileDialogOpen)

    La risposta è stata utile?

    0 commenti
  4. Anonimo
    2015-03-31T13:51:59+00:00

    Ciao Paolo,

    Ciao a tutti,

    ho una macro vba che, grazie all'aiuto di qualcuno di voi, funziona perfettamente.

    Da oggi mi hanno configurato un altro indirizzo mail su Outlook 2013 e vorrei da partire tutte le mail generate dalla macro di defualt da questo nuovo indirizzo.

    Qual'è l'istruzione da utilizzare?

    Senza vedere la macro, e dato che purtroppo oggi ho lasciato la mia sfera di cristallo in casa, è difficile fornire una risposta utile.  

    Quindi, se vuoi postare il codice, saremo lieti di  aiutarti

    ===

    Regards,

    Norman

    La risposta è stata utile?

    0 commenti